This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 4 - Program 7 *)
program While_Loop_Example;
var Counter : integer;
begin
Counter := 4;
while Counter < 20 do begin
Write('We are in the while loop, waiting ');
Write('for the counter to reach 20. It is',Counter:4);
Writeln;
Counter := Counter + 2;
end;
end.
