program ExampleLoop;

 var
  a: Integer;

begin

 ShowText;
 for a := 10 to 20 do
  begin
   Writeln('value of a: ', a);
  end;

end.