Составить программу. дана сторонасоставить программу. дана сторона квадрата а. найти его площадь и периметр. программу составить в программе паскаль abc

Var a,S,P:integer;
Begin
 Readln(a);
 S:=a*a;
 P:=a*4; 
 writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.