Question

Составить программу на языке Pascal, которая выводит на экран квадраты первых пятнадцати целых нечётных положительных чисел.​

Answer 1

var

 i:integer;

begin

 i:=1;

 repeat

   writeln(i,': ',sqr(i));

   i:=i+2;

 until i>30;

end.