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

На Паскале:var a, s: integer;beginwriteln('Введите сторону а');readln(a);s := a*a;writeln('Площадь квадрата равна ', s);end.заранее извиняюсь, если оно неправильно пойдет, со школы в паскале не работал