Какой то старанный вопрос, если честно. Я тут немного пофантазировал) program zhn; var a,b,c:integer; begin write('Введте во сколько завалились спать(часов):'); readln(a); write('Введте во сколько нужно проснуться(часов):'); readln(b); if a<b then begin writeln('Спать вам ',(b-a)*60,' минут'); end else writeln('Спать вам ',(24-a+b)*60,' минут');
program zhn;
var
a,b,c:integer;
begin
write('Введте во сколько завалились спать(часов):');
readln(a);
write('Введте во сколько нужно проснуться(часов):');
readln(b);
if a<b then begin
writeln('Спать вам ',(b-a)*60,' минут');
end
else writeln('Спать вам ',(24-a+b)*60,' минут');
end.