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

1)
2)
3) ++
4)

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку