Решить любые пять задач на языке Турбо Паскаль

1). На интервале от 12 до 100 определить числа кратные 11. Найти произведение этих чисел.Program Р1; Uses crt; Var i,j: integer; s: longint; begin clrscr; s: =1; writeln ('Числа кратные 11 в интрвале от 12 до 100: '); for i: =12 to 100 do begin if i mod 11=0 then begin writeln (i); s: =s*i; end end; writeln ('Произведение этих чисел: ',s); write ('Нажмите Enter'); readln; end. 2). Вычислить F=1+1/2+1/3+1/4+… +1/NProgram Р2; Var i,n: integer; f: real; begin writeln ('Введите количество элементов ряда'); write ('N='); readln (n); f: =0; for i: =1 to n do f: =f+1/i; writeln ('f=',f: 4:2); end. 3).Program Р3; Var x,y,m: Real; begin Writeln ('Лабораторная работа'); Writeln ('-'); write ('Введите x, x='); readln (x); write ('Введите y, y='); readln (y); m: =sqrt (sin (x) /cos (x)*sin (y); writeln; write ('Вычисленное значение m=',m: 4:2); readln; end.