3) Сделать программку, которая сопоставляет два числа и выводит извещение с информацией

Более удобный, компактный и требующий меньше памяти код, чем у предшествующего ответа.

Объяснение:

1) вводятся два числа и забиваются в значения a и b соответственно.

2)при помощи команды else производится отбор. Если а больше b, то  идет запись, если нет, то идет иное else, где если a меньше b, то идет запись их. В окончательном случае, если не производится ни то, ни то, то просто выводится, что они одинаковы, т.к больше нет никаких вариантов.

Код:

Program school6;

var a,b:real;

begin

write ('Введите 1-ое число:');

readln(a);

write ('Введите 2-ое число:');

readln(b);

if agt;b then

   write ('Первое число больше второго на ', a-b)

 Else

   If alt;b then

       write ('2-ое число больше первого на ', b-a)

     Else Write('числа равны');

end.

Program comparison;

var

a,b,c:real;

begin

write ('Введите первое число:');

readln(a);

write ('Введите 2-ое число:');

readln(b);

if agt;b then

begin

c:=a-b;

write ('1-ое число больше второго на ', c);

end;

if alt;b then

begin

c:=b-a;

write ('Второе число больше первого на ', c);

end;

if a=b then

write ('Числа равны');

end.