Три задачи с условием IF+ решение этих задач. Очень надеюсь на Вашу помощь!

Ну например 1) Какое из двух введенных чисел больше 2) Являются ли 2 числа взаимно обратными 3) Ну и сложная задача Нахождение Наименьшего общего кратного 2 ух чисел. Program N1; Uses Crt; var a,b: real; begin clrscr; write ('Введите число a: '); readln (a); write ('Введите число b: '); readln (b); if (a=b) then writeln ('Числа равны '); if (a>b) then writeln ('Число а больше ') else writeln ('Число b больше '); readkey; end. Program N2; Uses Crt; var a,b: real; begin clrscr; write ('Введите число a: '); readln (a); write ('Введите число b: '); readln (b); if (a+b)=0 then writeln ('Числа взаимно обратны! ') else writeln ('Числа не являются взаимно обратными! '); readkey; end. Program N3; Uses Crt; var n,m,res,nok: integer; function evklid (a, b: longint): longint; begin while (a <> 0) and (b <> 0) do if a >=b then a: =a mod b else b: =b mod a; evklid: =a+b; end; begin clrscr; writeln ('Введите A и B'); readln (M, N); res: =(Evklid (n,m); nok: =(m*n) div res; writeln ('NOK=',nok); readkey; end.