Создать очередь из n целых чисел вычисляющих по формуле А=х*х+1; х=1,2,3..n.

[evrey]

Помогите пожалуйста написать програму на паскале очень срочно нужно
Создать очередь из n целых чисел вычисляющих по формуле А=х*х+1;
х=1,2,3..n. Найти сумму трех последних элементов очереди.

[MaTBeu]

Или наработки или фриланс. Выбирай. Халявы здесь нет.

[Gladiator]

какой фриланс?тут прога то 5минутная...Это раздел помощи студентам...он же тебя не проект сделать просит..

[yourself]

Навскидку, самое дубовое:

program last3;
uses crt;
type row = array [0..500] of byte;
var a:^row; n:byte; i,res:integer;
begin
clrscr;
res:=0;
writeln('Enter the number of elements');
readln(n);
for i:=1 to n do
a^[i]:=i;
for i:=n downto n-2 do
res:=res+a^[i];
writeln('Sum of last 3 elements of the row is ',res);
readkey;
end.