Ответ:

program z1;

var a:integer;

begin

readln(a);

writeln(a*a);

writeln(a*4)

end.

Объяснение:

Вывод стороны квадрата (в переменную a)

Вывод площади (без использования дополнительных переменных)

Вывод периметра (без использования дополнительных переменных)