Дано действительное число х.вычислите его квадрат. заранее )надеюсь на быструю

Uses crt;varx:integer;s:real;beginclrscr;write('x=');read(x);s:=x*x;writeln('resultat=',s);end.