let
  var a : Integer
in
begin
  a := 0;
  while a < 5 do
  begin
    put('a');
    a := a + 1;
  end
end