Ответ:

Объяснение:

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.

Ответ:

1. program zadanie1;
2. var a,b:real;
3. begin
4. writeln('Введите числа');
5. readln(a);
6. readln(b);
7. writeln(a*b);
8. end.

1. program zadanie2;
2. var a:real;
3. begin
4. writeln('Введите сторону');
5. readln(a);
6. writeln('S=',a*a);
7. writeln('P=',4*a) ;
8. end.

1. program zadanie3;
2. var a,b,c:real;
3. begin
4. writeln('Введите стороны');
5. readln(a);
6. readln(b);
7. c:=(a*b)/2;
8. writeln('S=',c);
9. end.

Вот, вроде.

Объяснение: