Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции? - Turbo Pascal

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

1.Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции? 2.Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трехзначного числа. 3.Дано натуральное n. Вычислить: 1/11 + 1/22 + ... + 1/n n. 4.С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.

Решение задачи: «Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции?»

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

uses crt;
var b,z,m,ben:float;
begin
clrscr;
writeln('Сколько бензина в баке = ');
readln(b);
writeln('Какое растояние к заправке? = ');
readln(z);
writeln('Сколько литров бензина берет ваша машина на 100км= ');
readln(m);
ben:=(z*m)/100;
if b>=bez then writeln('Хватит') else writeln('не хватит');
end.

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

В начале кода используется библиотека crt, которая предоставляет функции для работы с консолью.
Переменные b, z и m объявлены и инициализированы значениями, полученными от пользователя.
Функция clrscr() используется для очистки экрана.
Пользователю задаются вопросы о количестве бензина в баке, расстоянии до заправки и расходе топлива на 100 км.
Введенные значения сохраняются в соответствующих переменных.
Переменная ben вычисляется как произведение расстояния до заправки на расход топлива на 100 км, деленное на 100.
Если количество бензина в баке больше или равно bez (необходимое количество бензина), то выводится сообщение Хватит. В противном случае выводится сообщение не хватит.
Код завершается после вывода сообщения.