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

Question

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

Answer 1

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