while loop in pascal

Pascal While Loop Example:

program WhileLoopExample;
var
  count: integer;
begin
  count := 1;
  while count <= 5 do
  begin
    writeln('Count: ', count);
    count := count + 1;
  end;
end.