13 lines
142 B
ObjectPascal
13 lines
142 B
ObjectPascal
program LoopWithStep;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
var
|
|
i: Integer;
|
|
begin
|
|
i:=2;
|
|
while i <= 8 do begin
|
|
WriteLn(i);
|
|
Inc(i, 2);
|
|
end;
|
|
end.
|