Перевести из Паскаля на Кумир программы:ЗАДАНИЕ 1Vari, s1, s2, s3, s4, n: integer;beginwrite('n = ');readln(n);s1 := 0; for i := 1 to n dobegins1 := s1 - i;s2 := s2 - sqr(i);if i mod 2 = 0 then s3 := s3 - i;end; for i := 10 to 99 do s4 := s4 - i; writeln('Сумма обратных n натуральных чисел: ', s1);end. ЗАДАНИЕ 2Program factorial;beginvar A := ReadLnInteger('Введите факториал числа A =');Write(A, ' = ');var B : integer := A;while A > 2 dobeginA -= 2;B *= A;end;WriteLn(B);end. ЗАДАНИЕ 3var i,j,n:integer;sum,d:real;beginwriteln('Введите n');readln(n);sum:=0;for i:=1 to n dobegind:=0;for j:=1 to i dod:=d+sin(j);sum:=sum+1/d;end;writeln(sum:8:3);readln;end. ЗАДАНИЕ 4Program Zad4;var m,n,x,y:integer;beginwriteln('Введите натуральные числа m,n');readln(m,n);if my:=x;while xbeginif (x mod m=0)and(x mod n=0) then write(x,' ');x:=x+y;end;end.