Составить программу для нахождения наименьшего общего кратного четырех натуральных чисел: по формуле нок(a, b)=(a*b)/нод(a*b) (определить процедуру, распознающую нод двух чисел)

Uses crt; var a,b,c,d: longint; {нахождение нод 2х чисел по эвклиду} function nod(m,n: longint): longint; begin repeat if abs(m)> abs(n) then m: =m mod n else n: =n mod m; until (m=0) or (n=0); nod: =abs(m+n); end; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); writeln; writeln('nod(a,b,c,d)=',nod(nod(a,b),nod(c,; readln end.

Program lol (input, output); var i, n, d, sd, s4d, kd, kn4d, k4d, kbd: integer; begin writeln ('введите само число и число d'); read (n, d); writeln ('делители: '); i: =1; sd: =0; s4d: =0; kd: =0; kn4d: =0; k4d: =0; kbd: =0; while i < =n do begin if n mod i = 0 then begin kd: =kd+1; writeln (i); sd: =sd+i; if i > d then kbd: =kbd+1; if i mod 2 = 0 then begin s4d: =s4d+i; k4d: =k4d+1; end else kn4d: =kn4d+1; end; i: =i+1; end; writeln (' '); writeln ('сумма делителей ', sd); writeln ('сумма четных делителей ', s4d); writeln ('количество делителей ', kd); writeln ('количество нечетных делителей ', kn4d); writeln ('количество четных делителей ', k4d); writeln ('количество делителей болеше d ', kbd); end.

Program zagadki2; var a, b, c, d: string; label r; begin writeln(', я программа, загаывающая загадки'); writeln('будешь отгадывать ? '); readln(a); if a = 'да' then writeln('зимой и летом одним цветом.') else begin writeln('пока'); goto r; end; readln(b); if b = 'ёлка' then writeln('правильно! ') else begin writeln('нет,попробуй ещё раз'); readln(b); if b = 'ёлка' then writeln('! ') end; writeln('сидит красавица в темнице, а коса на улице.'); readln(c); if c = 'морковь' then writeln('правильно! ') else begin writeln('попробуй ещё раз'); readln(c); if c = 'морковь' then writeln('правильно') end; writeln('не лает, не кусает, да в дом не пускает.'); readln(d); if d = 'замок' then writeln('правильно') else begin writeln('попробуй ещё раз'); readln(d); if d = 'замок' then writeln('правильно'); end; r: end.