На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них записаны фрагменты одного IP-адреса. Криминалисты обозначили эти фрагменты буквами А, Б, В и Г. Восстановите IP-адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу. Если будет несколько вариантов решения, запишите их все через запятую. 87.2 94.1 102. 49

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.

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