Ваши друзья не знают про этот решебник.
Урок 14. Задание 5.
|
Program plow; const pi=3.14; var a,b,pr,s:real; begin a:=10; b:=12; pr:=(a+b)*2; Writeln('Периметр прямоугольника равен ',pr); s:=a*b; Writeln('Площадь площадь прямоугольника равна ',s); End. |