Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
смотри блок-схему в приложенном файле
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
Популярные вопросы