Ответ:

program zadacha;

var

a,b,d,s,p:real;

begin

Writeln('Введите стороны а и b');

Readln(a,b);

d:=sqrt(sqr(a)+sqr(b));

s:=a*d;

p:=2*(a+b);

Writeln('Периметр прямоугольника P = ',p:5:2);

Writeln('Площадь прямоугольника S = ',s:5:2);

readln;

end.

Фото это результат программы(консоль) з любыми подставлеными значениями.