Три с условием 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.