10 lines
123 B
ObjectPascal
10 lines
123 B
ObjectPascal
Program While_Task8;
|
|
const n=25;
|
|
var a:integer;
|
|
begin
|
|
a:=3;
|
|
Repeat
|
|
Writeln(a);
|
|
inc(a);
|
|
until a>n;
|
|
end. |