Задача на Паскале по информатике. 50 баллов

За правильный ответ 50 баллов.
Вывести квадраты и кубы 10 чисел следующей последовательности 1, 2, 4, 11, 16.....
У меня выводятся 46 чисел. Как убрать ненужные, т. е. не из этой последовательности?

Примечание:
Обязательно с применением цикла или нескольких циклов

Примечание:
Ну я тут с переменными мудрил, вот что получилось a:=1; b:=a+1; c:=b+2; d:=c+3; e:=d+4; f:=e+5; g:=f+6; h:=g+7; j:=h+8; k:=j+9;

Примечание:
Сама программа

program qq_5;
var a,b,c,d,e,f,g,h,j,k,i,i2,i3: integer;
begin
a:=1; b:=a+1; c:=b+2; d:=c+3; e:=d+4; f:=e+5; g:=f+6; h:=g+7; j:=h+8; k:=j+9;
for i:=a to k do begin i2:=i*i; i3:=i2*i; writeln ('Число = ',i,' Квадрат = ',i2,' Куб = ',i3);
end;
end.

Примечание:
Что поменять в цикле? Квадраты и кубы чисел выводятся от 1 до 46, а мне надо только этих чисел. 1, 2, 4, 7, 11, 16, 22, 29, 37, 46

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.