Pascal Вычесление Периметра площади и диагонали прямоугольника

Question

Pascal Вычесление Периметра площади и диагонали прямоугольника

Алексей Воеводский Ученик (85), закрыт 11 лет назад

Длины сторон прямоугольника равны a и b. Составьте программу, которая вычисляет его периметр P, площадь S и длину диагонали d.
дано что стороны равны 6 и 8 без единиц измерения промаялся не могу вывести все вместе

Дополнен 11 лет назад

написал но почему то диагональ не такой ответ

Answer 1

var a,b:real;
begin
Write('a=');
readln(a);
write('b=');
readln(b);
writeln('p=',2*(a+b));
writeln('s=',(a*b));
writeln('d=',sqrt(a*a+b*b));
end.

Answer 2

var a, b : Integer;
begin
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);
WriteLn('Периметр P = ', 2*(a+b));
WriteLn('Площадь S = ', a*b);
WriteLn('Длина диагонали d = ', Sqrt(a*a+b*b):0:5);
end.