Составьте программу нахождения площади квадрата по известной стороне
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.