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

выбивает 0

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