Question

Помагите пожалуйста! 6 класс информатика,дою 20 баллов​

Answer 1

var

S,P, a,b:integer;

begin

 read(a);

 read (b);

 begin

 P:=(a+b)*2;

write('Периметр:',P); end;

begin

S:=a*b;  write('Площадь:',S); end;

end.