15 lines
192 B
ObjectPascal
15 lines
192 B
ObjectPascal
program test;
|
|
|
|
procedure a;
|
|
begin
|
|
writeln('Funzione A');
|
|
end;
|
|
|
|
function b(a:byte, c:byte):byte;
|
|
begin
|
|
writeln('funzione B');
|
|
end;
|
|
|
|
begin
|
|
writeln('ciao mondo! - Pascal');
|
|
end. |