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.

Program lol;
var a;b;c:integer;
begin
read(A);
b:=4*a;
c:=a*a;
writeln('Периметр=',b);
writeln('Площадь='C);
end.