Question

вывести на экран в строку через пробел квадраты нечётных чисел от 301 до 201​

Answer 1

var i:integer;

begin

 i:=301;

 while i>=201 do

 begin

   write(sqr(i),' ');

   dec(i,2);

 end;

 readln;

end.