Question

Помогите пожалуйста с заданием! Информатика
Отдам 40 баллов

Answer 1

Ответ:

Объяснение:

Program pr;

var

h,a,b,g,p,s:integer;

begin

p:=2*(a+b);

s:=a*b;

writeln('p=',p,' s=',s);

readln;

end.