Дана сторона квадрата a. найти его площадь s=a^2

На Паскале:
var a, s: integer;
begin
writeln('Введите сторону а');
readln(a);
s := a*a;
writeln('Площадь квадрата равна ', s);
end.

заранее извиняюсь, если оно неправильно пойдет, со школы в паскале не работал