Question

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

Answer 1

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