Составить программу вычисления квадратов нечётных чисел, лежащих в интервале от 1 до 10.
For A = 1 To 10 If A mod 2 <> 0 Then Print A * A End if Next A