Ответ:

Program Perimeter;

Var A, P, S : Integer;

begin

writeln('Программа вычисления периметра квадрата');

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

readln(A);

P := 4 * A;

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

S := A * A;

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

end.