Program n_1;
var a, i:integer;
begin
for i:=1 to 5 do write(i, ' ');
writeln;
for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');
for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program n_1;
var a, i:integer;
begin
for i:=1 to 5 do write(i, ' ');
writeln;
for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');
writeln;
for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');
end.