10 lines
102 B
ObjectPascal
10 lines
102 B
ObjectPascal
var i: integer;
|
|
|
|
//Ðàáîòàåò âåðíî!
|
|
|
|
begin
|
|
i:= 10;
|
|
for i:= 1 to i do
|
|
writeln(i);
|
|
readln;
|
|
end. |