Add Pascal learning files
This commit is contained in:
10
PascalABCnet/while/While_task8.pas
Normal file
10
PascalABCnet/while/While_task8.pas
Normal file
@@ -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