Напишиет программу которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон
Var
a,b:integer;
begin
write(Введите сторону a=);read(a);
write(Введите сторону b=);read(b);
writeln(Площадь прямоугольника=,a*b);
writeln(Периметр прямоугольника=,2*(a+b));
end.
Оцени ответ
