Дана сторона квадрата . Найдите его площадь и периметр

program kvadrat;var a: integer;begin write('a='); readln(a); writeln('S=',a*a); writeln('P=',4*a);end.