Вывести квадраты чисел от 30 до 10

Question

Вывести квадраты чисел от 30 до 10

Answer 1

Var i :integer;
begin 
for i := 30 downto 10 do 
writeln(sqr(i));
readln;
end.

Comments

longint=)) Весёлый тип, для такой задачки=D

---

За что?=))

---

Ну, вообще ошибки нет=)