For ciklus - példaprogram

program Csillag;
uses Crt;
var i, n: byte;
begin
  ClrScr;
  ReadLn(n);
  for i := 1 to n do
    Write('*');
  ReadLn
end.

Program Faktorialis;
Uses Crt;
Var i, n: Byte;
    fakt: LongInt;
Begin
  ClrScr;
  ReadLn(n);
  fakt := 1;
  For i := 2 to n do
    fakt := fakt * i;
  WriteLn(n,'! = ',fakt);
  ReadLn
End.