Question

Составить программу находящую площадь и периметр квадрата по введенным с клавиатуры значениям его стороны

Answer 1

Var
    num: real;
begin  
    write('Введите сторону квадрата: ');  
    read(num);  
    writeln;  
    writeln('Периметр квадрата (P): ', num * 4);  
    writeln('Площадь квадрата (S): ', sqr(num));
end.