<![CDATA[
program funzione(input,output);
var
a:integer;
b:integer;
function media:real;
begin
media:=(a+b)/2
end;
begin
write('dimmi il primo valore : ');
readln(A);
write('dimmi il secondo valore : ');
readln(b);
writeln('il valore medio e''',media)
end.
]]>