С клавиатуры задается сторона квадрата. Составить программу вычисления периметра P и площади квадрата S.
На паскале​

Ответ:

program test;

var a,P,S: real;

begin

write ('Введите сторону квадрата: ');

readln (a);

P:=a*4;

S:=a*a;

writeln('Периметр квадрата: ',P);

write('Площадь квадрата: ',S)

end.