Question

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

Answer 1

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

Answer 2

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

Answer 3

прости ..

Answer 4

За что?=))

Answer 5

ошиблась )

Answer 6

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