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.