Помогите составить задание ** языке Паскаль: Даны стороны прямоугольника: a и b. Найти:...

Question

Помогите составить задание на языке Паскаль:

Даны стороны прямоугольника: a и b.

Найти: P-периметр, S-площадь, с-диагональ.

Answer 1

Program Zn;
var a,b,S,P:integer;
c:real;
Begin
Writeln('Введите стороны а и b');
Readln(a);
Readln(b);
P:=2*a+2*b;
S:=a*b;
c:=sqrt(a*a+b*b);
writeln('P=',P);
Writeln('S=',S);
Writeln('c=',c);
end.

(Проверено и откомпилировано на Pascal.NET)