Pascal program készítés? (többi lent )

Először meg kell adni a két évszám típusát. Én real-t használnék.

var aktualis, szulev:real;

------

Aztán kell egy hátultesztelő ciklus amiben bekéred a két évszámot és rögtön teszteli is, hogy megfelelnek-e a fent nevezett feltételnek. Ezt egészen addig csinálja amíg a számok megfelelnek a feltételnek:

begin

repeat

write('Aktuális év: ');

readln(aktualis);

write('Születési év: ');

readln(szulev);

if szulev≥aktuális

then

writeln('Figyelmeztető üzenet');

until szulev<aktualis;

end.

----------------------

Lehet benne hiba de kb. így kell kinéznie.