Question

Помогите пожалуйста решить задачу!Написать программу Задача B. Будильник Известный исследователь Чарльз Ф. Мантц, устав от долгого путешествия через джунгли, лег спать в 10 часов вечера, но предварительно он завел будильник на 12 часов следующего дня. Но проспать 14 часов ему не удалось – будильник зазвонил через 2 часа. Исследователь забыл, что на будильнике, имеющем 12-тичасовой циферблат, можно задать время до звонка только менее 12 часов. Напишите программу, которая определяет, сколько часов успеет проспать исследователь, прежде чем будильник его разбудит. Входные данные В единственной строке входного файла INPUT.TXT записаны два целых числа S и T (1 ≤ S, T ≤ 12), разделенные одним пробелом - час, когда исследователь лег спать, и час, на который он установил будильник. Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число – через сколько часов зазвонит будильник.

Answer 1

Var s,t :integer;
begin
assign (input,'input.txt');
reser(input);
assign(output,'output.txt');
rewrite (output);
read(s,t);
if s<t then writeln (t-s) else 
writeln (t+12-s);
close (output);
end.