menampilkan 1 sampai 10

source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do

uses crt;

  var

  a,b : integer;

  f : longint;

Begin

   clrscr;

   a:=1;

   b:=10;

   for a :=1 to b do

   begin

   writeln(a);

   end;

   readln;

   end.