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

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

var a: real;

begin

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

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

end.