Составьте программу нахождения площади квадрата по известной стороне​

program HelloWorld;

var k:integer;

begin

writeln('Введи сторону');

readln(k);

writeln(k*k)

end.