50'ye kadar sayıların ekrana yazdırılması - for ile

PROGRAM deneme1;
USES CRT;
VAR i: INTEGER;

BEGIN
CLRSCR;

FOR i := 1 TO 50 DO
WRITELN(i);

READLN;
END;