Program PascalWhileLoop;
Var
number:integer;
begin
number := 1;
//WHILE DO Statement - Pre Condition Repetition
While number <> 0 do //Run code below, while "number" is not 0
begin
Write('Enter an integer number: ');
readln(number);
end;
Writeln();
Writeln('Program Ended');
End.