2 Pascal feladat?

Elöltesztelő ciklus: while ciklus. Pascalban emlékeim szerint a következő:

while(feltétel) do begin

// teendők amig feltétel igaz

end;

Ezek után én személy szerint úgy csinálnám meg a feladatot, hogy elindulok 2-ről, a while cikluson belül kiiratom a szám négyzetét, majd növelem a számot egyel. A while feltétele pedig szám*szám<200.

Második: a hátultesztelős ciklus a do...while ciklus. A különbség a while ciklussal ellentétben, hogy a do...while mindenképpen lefut legalább egyszer. Nem egészen értem, hogy a hónapok sorszámához pontosan hogyan kéne felhasználni.

2-es feladat:

program honapok;

var

x: int;

begin

writeln('Kérem a hónap sorszámát:');

read(x);

end.

Nem tudom pontosan mit kell csinálni, a hónapok sorszámával.

Nekem ilyesmi jött le:

program honap;

uses crt;

var h:byte;

begin

clrscr;

repeat

writeln('A honap sorszama?');

readln(h);

until h>12;

readln;

end.