Составить программу на Pascal ABC. Составить программу которая вычисляет сумму всех…

Program n1; Uses CRT; Const n=7; Var i,k,s: integer; beginfor i: =10 to 99 do if i mod 2=1 then s: =s+i else k: =k+1; writeln ('Summa nechetnyx=',s,' a chetnih chisel ',k); readlnend.