Решить по икт нужно вот это переделать так чтобы были квадратные числа var i: integer; begin for i: =1 to 10 do begin writeln (i); end; end.

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