Система паскаль, циклы.вывести на экран квадраты и кубы нечётных чисел от 1 до 9, ,

Var i: integer; begin for i: =1 to 9 do  if i mod 2 = 0 then begin write(i,' ',i*i,' ',i*i*i); writeln; end; end.

А)// pascalabc.net 3.1, сборка 1174 от 22.02.2016 var   a,b: real; procedure writeavg; begin   writeln('среднее= ',(a+b)/2) end; begin   write('a,b='); read(a,b);   writeavg end. тестовое решение: a,b=6 4.9 среднее= 5.45 б) // pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var c: =readlnchar('введите символ: ');   if c in ['a'..'z','а'..'я','ё','ё'] then writeln('буква')   else       if c in ['0'..'9'] then writeln('цифра')       else writeln('спецзнак') end. тестовое решение: введите символ: i буква

// pasaclabc.net 3.0, сборка 1052 const   c0=ord('0'); var   ns,d: integer;   s: string; begin   write('введите сумму, записанную шариком: '); read(ns);   s: ='';   while ns> 0 do begin       d: =ns mod 10;       if odd(d) then s: =chr(d+c0)+s       else           if d< > 8 then s: =chr(d+2+c0)+s           else s: ='0'+s;       ns: =ns div 10   end;   write('сумма, записанная матроскиным: ',s) end. тестовое решение: введите сумму, записанную шариком: 14258 сумма, записанная матроскиным: 16450