Введите два натуральных числа. Выведите на экран длины сторон прямоугольника, периметр и площадь.

1

Ответы и объяснения

2014-03-18T20:28:17+00:00
Var a,b,p,s:integer;
begin
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln('сторона а=',a);
writeln('сторона b=',b);
writeln('P=',p);
writeln('s=',s);
end.