Написать программу поскаля, нахождение площади квадрата, значение сторон вводить с клавиатуры Помогите

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

var a: real;

begin

  readln(a); //Вводим сторону квадрата

  writeln('Площадь квадрата равна: ', sqr(a)); //Выводится площадь квадрата

end.