3) Сделать программу, которая сравнивает два числа и выводит сообщение с информацией о том какое число больше, и на сколько больше. Даю 99 БАЛОВ

Program comparison;

var

a,b,c:real;

begin

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

readln(a);

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

readln(b);

if a>b then

begin

c:=a-b;

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

end;

if a<b then

begin

c:=b-a;

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

end;

if a=b then

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

end.

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

Пояснение:

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

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

Код:

Program school6;

var a,b:real;

begin

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

readln(a);

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

readln(b);

if a>b then

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

 Else

   If a<b then

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

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

end.