Question

ПОМОГИТЕ пожалуйста написать программы для решения следующих задач
дам 60 баллов!!!!

Answer 1

1.

program z1;
var
a,b,p:integer;
begin
 read(a,b);
p:=a*b;
   writeln('Произведение = ',p);
   readln;
end.

2.

program z2;
var
r,p:real;
begin
   read(r);
p:=2*Pi*r;
   writeln('Длина окружности = ',p);
   readln;
end.

3.

program z3;
var
a,s,s1,V:integer;
begin
  read(a);
s:=sqr(a);
   writeln('Площадь грани куба = ',s);
s1:=6*sqr(a)*sqr(a)*sqr(a);
   writeln('Площадь полной поверхности куба = ',s1);
V:=a*a*a;
   writeln('Объем куба = ',V);
   readln;
end.