!СРОЧНО ИНФОРМАТИКА!

Решить подробно для Паскаль:

1. Ввести два натуральных числа: числитель и знаменатель. Определить правильная или неправильная дробь?
2. Даны два числа. Определить делится ли первое число на второе.
3.Ввести два числа, вывести меньшее из них

var

 n,m:integer;

begin

 writeln('Задача 1');

 readln(n,m);

 if n>=m then  

   writeln('Неправильная')

     else writeln('Правильная');

 writeln;

 writeln('Задача 2');

 n:=random(20); m:=random(20);

 writeln(n,' ',m);

 if n mod m = 0 then  

   writeln('Делится нацело')

     else writeln('Не делится нацело');

 writeln;

 writeln('Задача 3');

 readln(n,m);

 if n<=m then

   if n=m then writeln('Равные')

     else  writeln(n)

     else writeln(m);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!