Помогите пожалуйста с free pascal 1. Вывести на экран следующие числа: 5,8,5,9… 6,8. 2. С…

Program n1; Uses CRT; Var i: real; beginClrScr; i: =5,8; While i <= 6,8 do begin writeln (i: 2:1); i: =i+0,1; end; readlnend. Program n2; Uses CRT; Var j,i: integer; beginClrScr; Writeln ('Vvedite cenu'); readln (i); For j: =1 to 15 do writeln ('j porzii: ',i*j); readln end. Program n3; Uses CRT; Var k,s,sum: integer; begins: =12; While k <= 50 do If s mod 12=0 then begin sum: =sum+s; k: =k+1; end; writeln (sum); readlnend. Program n4; Uses CRT; Var k,i,p: integer; beginWriteln ('Vvedite chisla'); p: =1; For i: =1 to 10 do begin; readln (k); if k<10 then p: =p*k; end; writeln (p); readlnend. Среднее арифметическое чисел, кратных трем? Нужен диапазон) Сделала по условию предыдущей задачи, т.е. вводятся десять чисел, и вот среди них находится среднее арифметическое чисел, кратных трем.Program n5; Uses CRT; Var k,i,l,p: integer; beginWriteln ('Vvedite chisla'); For i: =1 to 10 do begin; readln (k); if k mod 3=0 then begin l: =l+1; p: =p+k; end; end; writeln (p/l: 4:4); readlnend.