в чём у меня ошибка подсткажите

[Кукла_колдуна]

Слесарь начинает работу в 8 часов, заканчивает в 17 часов, делает перерыв на обед с 12 до 13 часов. Через каждые 30 минут работы он устраивает течь в кранах водопроводной системы одной из квартир жилого дома. Составить алгоритм и программу для вычисления количества воды Q, которое вытечет из неисправных кранов за рабочий день слесаря, если утечка воды в одной квартире составляет Q1[л/мин]. Полученный результат вывести на печать.

program z1;
var
Q, Q1:real;
begin
Q1:=1;
Q:=480*Q1;
readln;
end.
подскажите почему он не выводит мне количество воды а выводит единицу и слово False?

[Serge_Bliznykov]

ошибок у Вас полно.

Например, Вы упорно не хотите давать своим темам нормальные адекватные названия, которые отражают не то, что бы Вам хотелось, а суть решаемой проблемы.

А ещё Вы забываете оформлять исходный код тегами.
А код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

А ещё Вы пытаетесь ввести форумчан в заблуждение.
Ваша программа не может ничего выдавать,
т.к. в вашей программе вообще операций вывода данных
WriteLn(....)!

ТЕМА ЗАКРЫТА