Question

паскаль срочно кто что может кроме 1
написать программу 

Answer 1

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.