contoh pemograman pascal Loop (for...to...do)

program for1;
uses wincrt;
var batas,i:integer;
begin
    writeln('mencetak bilangan');
    writeln('akan mencetak bilangan sampai berapa?  ');readln(batas);
    for i:=1 to batas do
    writeln(i);
    end.