Для знатоков Pascal

Задание.
Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел в обратном порядке.


Я сделал всё это, прилагаю код:

Program alexandrov1;
var i,k: integer;
begin
k:=1;
for i:= 5 downto 1 do
begin
writeln( 'Квадрат ',k,' = ',sqr(k));
k:=k+2;
end;
end.


Но проблема в том, что квадраты выводятся по порядку, то есть от меньшего к большему, а надо наоборот.
Хотя там в цикле for стоит downto


Подскажите, в чем проблема?

+ за помощь обеспечен!

 

Я Паскаль чуток со школы помню, так что может так:

var i,k: integer;
begin
k:=1;
for i:= 5 downto 1 do begin
k:=k+2;
writeln( 'Квадрат ',k,' = ',sqr(k));
writeln (x,y);
end;
end.

или

var i,k: integer;
begin
k:=1;
for i:= 5 downto 1 do i=1
k:=k+2;
writeln( 'Квадрат ',k,' = ',sqr(k));
writeln (x,y);
end;
end.

 

Поэтому по порядку и идет)
Схитри и поставь k:=k-2;

 

k:=5;
for i:= 5 downto 1 do
begin
writeln( 'Квадрат ',k,' = ',sqr(k));
k:=k-2;

 

Пока проблема не устранена, еще советы, ребят

 

Program alexandrov1;
var i,k: integer;
begin
k:=11;
for i:= 1 to 5 do
begin
writeln( 'Квадрат ',k,' = ',sqr(k));
k:=k-2;
end;
end.

 

у меня правильное решение,проверь))
все выводит сам только что проверил)

 

К сожалению, нет. Не работает

 

емм, +2 для того чтобы
считало квадраты

 

Program alexandrov1;
var i,k: integer;
begin
k:=11;
for i:= 1 to 5 do
begin
writeln( 'Квадрат ',k,' = ',sqr(k));
k:=k-2;
end;
end.
еще раз попробуй

 

Program alexandrov1;
var i,k: integer;
begin
k:=9;
for i:= 1 to 5 do
begin
writeln( 'Квадрат ',k,' = ',sqr(k));
k:=k-2;
end;
end.

Так, не?

 

все верно, только k:=9;
ибо нужно только 5 чисел.

 

ОГРОМНОЕ СПАСИБО, РЕБЯТ!!!!!