Pascal. даны четыре натуральных числа. найти наименьшее общее кратное (нок) для этих четырех чисел. поиск нок двух чисел оформить функцией.

Var a,b,c,d,x,y: longint; function nod(a,b: integer): integer; begin     while(a< > 0) and (b< > 0) do       if a> =b then a: = a mod b         else b: = b mod a;     nod: =a+b;   end; function nok(a,b: integer): integer;   begin   nok: =a*b div nod(a,b)   end; begin   read(a,b,c,d);   x: =nok(a,b);   y: =nok(c,d);   writeln(nok(x,y)); end.

1)var  i,sum: integer; begin sum: =0; i: =45; while (i< =115) do begin sum: =sum+i; i: =i+1; end; writeln( 'сумма = ', sum ); end. 2)var i: integer; begini: =2; while (i< =150) do beginif (i mod 2=0) and (i mod 13=0) thenwriteln(i); i: =i+1; end; end.3)var  c,a,i,n: integer; begin write('введите целое число (n> 0) n = '); read(n); write('введите целое число a = '); read(a); c: =1; i: =1; while (i< =n) do begin c: =c*a; i: =i+1; writeln('a в степени ',i,' : = ',c); end; end.

1)var  i,sum: integer; begin sum: =0; i: =45; while (i< =115) do begin sum: =sum+i; i: =i+1; end; writeln( 'сумма = ', sum ); end.2)var i: integer; begini: =2; while (i< =150) do beginif (i mod 2=0) and (i mod 13=0) thenwriteln(i); i: =i+1; end; end.3)var  c,a,i,n: integer; begin write('введите целое число (n> 0) n = '); read(n); write('введите целое число a = '); read(a); c: =1; i: =1; while (i< =n) do begin c: =c*a; i: =i+1; writeln('a в степени ',i,' : = ',c); end; end.