Написать программу из 2 частей. В основной программе посчитать сумму факториалов всех нечетных чисел с 1 до 9. Подсчет факториалов реализовать в функции

program gt;var i,s,l:integer;function IOI(a:integer):integer;beginif(a mod 2=1)then IOI:=1 else IOI:=0;end;begins:=1;l:=1;for i:=2 to 9 dobeginif(IOI(i)=1)then beginl:=l*i*(i-1);s:=s+l;end;end;writeln(s);end.

На Visual Basic с массивомSub ProgramDim A(10) As Integer, i As Integer, S As LongS = 0For i = 1 To 9 Step 2A(i) = iS = S + Fact(A(i))Next iText1.Text = SEnd SubFunction Fact(n)Dim i As IntegerFact = 1For i = 1 To nFact = Fact * iNext iEnd FunctionПочему во всех институтах изучают Pascal, если программы на Basic короче и быстрее работают?