Question

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

Answer 1

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