3. Дана сторона квадрата a. Найдите его периметр P=4∗a и площадь S=a2.программа Паскаль

uses GraphABC;

var
  s, p, a: integer;

begin
  read(a); //спрашиваем сторону квадрата
  p := 4 * a;
  s := sqr(a);
  print('Периметр квадрата: ' + p + '. Площадь квадрата: ' + s + '.');
end.