Определить, хватит ли провода, чтобы провести проводку в квартире - Turbo Pascal

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

Кусок медного провода длиной 5 м имеет массу 430 г. чтобы провести проводку в квартире требуется С метров. Хватит ли для этой цели мотка провода массой М г?

Решение задачи: «Определить, хватит ли провода, чтобы провести проводку в квартире»

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

var c, m: real;
 
begin
  write('c = ');
  readln(c);
  write('m = ');
  readln(m);
  writeln(m / c >= 430 / 5);
  readln
end.

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

В данном коде происходит следующее:

Объявляются две переменные типа real: c и m.
Выводится сообщение «c = », после чего считывается значение переменной c с помощью функции readln.
Выводится сообщение «m = », после чего считывается значение переменной m с помощью функции readln.
Вычисляется отношение m / c.
Выводится результат вычисления отношения m / c с помощью функции writeln.
Вызывается функция readln для завершения ввода данных.