program zadanie1; var a,b:real; begin writeln('Введите числа'); readln(a); readln(b); writeln(a*b); end.program zadanie2; var a:real; begin writeln('Введите сторону'); readln(a); writeln('S=',a*a); writeln('P=',4*a) ;end.program zadanie3; var a,b,c:real; begin writeln('Введите стороны'); readln(a); readln(b); c:=(a*b)/2; writeln('S=',c); end.
Объяснение:
program proizvedenie
var a,b,c:integer;
begin
read(a,b);
c:=a*b;
writeln(c);
end.
program kwadrat
var a,b,c,s:integer;
begin
read(a,b);
s:=a*b;
c:=a*4;
writeln(c,s);
end.
program treugol`nik
var a,b,s:integer;
begin
read(a,b);
s:=a*b;
s:=s/2;
writeln(s);
end.
Вот, вроде.
Объяснение: