Question

програма обчислення периметру і площі квадрата

Answer 1

uses crt;
var a: Integer:
begin
readln(a);
clrscr;
writeln('S = ', a * a);
writeln('P = ', 4*a);
readln;
end.

Answer 2

выбивает 0