15 lines
198 B
ObjectPascal
15 lines
198 B
ObjectPascal
Program While_Task7;
|
|
const n=10;
|
|
var a:integer;
|
|
begin
|
|
While a<> n do
|
|
Begin
|
|
writeln('hello');
|
|
inc(a);
|
|
end;
|
|
a:=0;
|
|
repeat
|
|
writeln('hello');
|
|
inc(a);
|
|
until a=n;
|
|
end. |