Срочно 1) Составить программу вывода на экран всех нечетных элементов с 1 до 10.…

Вот тебе решение на все 3 задачи (+ две которые удалил (P.S умей ждать). -1) Program chisla; var i: integer; begini: =1; writeln ('Числа от 1 do 10 не четные: '); while i <= 10 do begin if i mod 2=1then write (i: 3); i: =i+1; end; end. -2) Program legko; Var S,t,V: real; beginwriteln ('введите расстояние'); readln (S); writeln ('введите время'); readln (t); V: =S/t; writeln ('Скорость равна=',V); readln; end.-3) Program ball; Var a,b,c: integer; sred: real; beginwrite ('1-ый предмет'); readln (a); write ('2-ый предмет'); Readln (b); write ('3-ий предмет'); readln (c); sred: =(a+b+c) /3; writeln ('Средний балл=',sred); end.