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

На Паскале:

var a, s: integer;

begin

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

readln (a);

s : = a*a;

writeln ('Площадь квадрата равна ', s);

end.

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