Program Primer;
var i: integer;
procedure Star;
begin
write('++);
end;
begin
for i:=2 to 5 do
Star
end.

1)
2)
3) ++
4)

ЮлияК111111    2   30.11.2020 15:04    10