как её запрограмировать

[AlexKor94]

uses
SysUtils;
var h1,h2,m1,m2:real;
begin
write('vvedite znacheniya h1,m1:');
Readln(h1,m1);
write('vvedite znacheniya h2,m2:');
Readln(h2,m2);
if m2<m1 then m2+60
как дальше

[Abstraction]

Если min2<min1 добавляете к min2 60 и вычитаете из h2 еденицу. Затем из h2 вычитаете h1, из min2 вычитаете min1 и ...

...и шикарно обламываетесь в случае начального времени 23:34, конечного 02:26. Условию не противоречит и вполне жизненно.

46 минут .

Можете теперь для кого-нибудь очень тупого (пусть это буду я) сформулировать, что и как Вы делали, чтобы получить этот ответ? А то я делаю так:

вычтем из конца начало

и у меня получается 1:-14.

[AlexKor94]

uses
SysUtils;
var h1,h2,m1,m2:real;
begin
write('vvedite znacheniya h1,m1:');
Readln(h1,m1);
write('vvedite znacheniya h2,m2:');
Readln(h2,m2);
if m2<m1 then m2+60
как дальше?

[AlexKor94]

:и у меня получается 46минут
.
Если min2<min1 добавляете к min2 60 и вычитаете из h2 еденицу.

[Abstraction]

Пусть начальное время 23:34, конечное 02:26.
min2<min1? Да. h2=1, min2=86.
Вычитаю: -22:52.

[waleri]

Сообщение от AlexKor94

вычтем из конца начало

А как вы вычитаете, ведь у вас две *разные* единицы измерения - часы и минуты - как вычитать одно из другого?

[AlexKor94]

а если привести всё к минутам

[shelest]

Сообщение от Abstraction

Пусть начальное время 23:34, конечное 02:26.
min2<min1? Да. h2=1, min2=86.
Вычитаю: -22:52.

Да признаю, не внимательно прочитал, что начало и конец могут быть в разные сутки.