program zadacha;
var
a,b,c,sum,pr:
real;
begin
writeln('vvedite
3 chisla');
readln(a,b,c);
sum:=a+b+c;
pr:=a*b*c;
writeln('summa=',
sum, ' proizvedenie=', pr);
end.
program
zadacha;
var
a,b,c,d:
integer;
begin
a:=39;
b:=54;
c:=84;
d:=a*b-sqr(c);
writeln('otvet=',
d);
end.