Question

помогите решить! Дана сторона квадрата.Найти его периметр,площадь,длину диагонали.
S=a², P=4a, d=a√2

Answer 1

var S, P, d, a : real;
begin
       write('Введите значение а: ');
       readln(a);
       S := a * a;
       P := 4 * a;
       d := a * sqrt(2);
       writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
                                                                   // 5 знаков после запятой 
end.