ЕСЛИ с1 > с2 ТО ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с1 > с3 ТО Вывод.Цепь("^Первый.") ИНАЧЕ Вывод.Цепь("^Первый и третий.") АЕСЛИ с2 > с1 ТО ЕСЛИ с3 > с2 ТО Вывод.Цепь("^Третий.") АЕСЛИ с2 > с3 ТО Вывод.Цепь("^Второй.") ИНАЧЕ Вывод.Цепь("^Второй и третий.") ИНАЧЕ ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с3 < с1 ТО Вывод.Цепь("^Первый и второй.") ИНАЧЕ Вывод.Цепь("^Ничья.") КОН
Var DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer; begin readln(DepHour,DepMin,DurHour,DurMin); if DepMin+DurMin>=60 then begin ArrHour:=DepHour+DurHour+1; ArrMin:=DepMin+DurMin-60; end else begin ArrHour:=DepHour+DurHour; ArrMin:=DepMin+DurMin; end; write(ArrHour,':',ArrMin); end.
Вертикальная линия, находящаяся в рабочем поле текстового процессора называется Линейкой