Reorganize
This commit is contained in:
@@ -0,0 +1,10 @@
|
||||
Program While_Task8;
|
||||
const n=25;
|
||||
var a:integer;
|
||||
begin
|
||||
a:=3;
|
||||
Repeat
|
||||
Writeln(a);
|
||||
inc(a);
|
||||
until a>n;
|
||||
end.
|
||||
Reference in New Issue
Block a user