home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
tutorial
/
tp4tutor
/
whilelp.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
352b
|
15 lines
(* 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.