Задача, про километры и футы - Pascal ABC

Формулировка задачи:

Известны два расстояния одно в километрах, другое- в футах (1фут=0,45 м). Какое из расстояний меньше?

Решение задачи: «Задача, про километры и футы»

Листинг программы

var
   km, ft: real;
begin
     write('ГЉГЁГ«Г®Г¬ГҐГІГ°Г®Гў: ');
     readln(km);
     write('Г”ГіГІГ®Гў = ');
     readln(ft);
     if (km*1000<ft*0.45) then
        writeln('ГђГ*Г±Г±ГІГ®ГїГ*ГЁГҐ Гў ГЄГЁГ«Г®Г¬ГҐГІГ°Г*Гµ Г¬ГҐГ*ГјГёГҐ')
        else if (km*1000>ft*0.45) then
             writeln('ГђГ*Г±Г±ГІГ®ГїГ*ГЁГҐ Гў ГґГіГІГ*Гµ Г¬ГҐГ*ГјГёГҐ')
             else writeln('ГђГ*Г±Г±ГІГ®ГїГ*ГЁГї Г®Г¤ГЁГ*Г*ГЄГ®ГўГ»');
end.

Объяснение кода листинга программы

Объявлены две переменные: km и ft типа real (число с плавающей точкой).
Выводится сообщение: ГЉГЁГ«Г®Г¬ГҐГІГ°Г®Гў: и ожидается ввод значения в километрах.
Выводится сообщение: Г”ГіГІГ®Гў = и ожидается ввод значения в футах.
Выполняется проверка: если введенное значение в километрах меньше 0.45 раза значения в футах, то выводится сообщение: ГђГ*Г±Г±ГІГ®ГїГ*ГЁГҐ Гў ГЄГЁГ«Г®Г¬ГҐГІГ°Г*Гµ Г¬ГҐГ*ГјГёГҐ.
Если введенное значение в километрах больше или равно 0.45 раза значения в футах, то выводится сообщение: ГђГ*Г±Г±ГІГ®ГїГ*ГЁГҐ Гў ГґГіГІГ*Гµ Г¬ГҐГ*ГјГёГҐ.
Если введенное значение в километрах меньше 0.45 раза значения в футах, то выводится сообщение: ГђГ*Г±Г±ГІГ®ГїГ*ГЁГї Г®Г¤ГЁГ*Г*ГЄГ®ГўГ».