program prova1;
uses crt;
var a,b,somma,prodotto:integer;
begin
clrscr;
a:=5;
b:=10;
somma:=a+b;
prodotto:=a*b;
writeln('somma    =',somma);
writeln('prodotto =',prodotto);
writeln('premi invio per finire');readln;
clrscr;
end.

indice inizio