Hogy kell megirni ezt a programot freepascalban?

x tetszőleges VALÓS vagy EGÉSZ szám? Én most valósnak vettem, de ha egész, akkor a "real" helyére írj "integer"-t.

Remélem, hogy a kódom nem hibás, mert nem teszteltem le, és régen pascaloztam már :) Lehet, hogy egyszerűbben vagy szebben is meg lehetett volna oldani, de nekem ez jutott így elsőre eszembe. Ha valamit nem értesz, szólj!

program x_negyzet;

uses crt;

var x : real;

i : integer;

Begin

ClrScr;

write('Írjon be egy számot: ');

readln(x);

for i:=0 to 9 do

begin

writeln('A szám: ',x+i);

writeln('A szám négyzete: ',(x+i)*(x+i));

end;

readkey;

End.

Bárki jelezze, ha hibás lett!