Ответ: var C: integer; h, m: string;begin readln(C); C := C * 2; if (C div 60 < 10) then h := ‘0’ + inttostr(C div 60); if (C mod 60 < 10) then m := ‘0’ + inttostr(C mod 60); writeln(h, ‘:’, m);end.Сам такое недавно делал, только на КуМИР’е)
Источник znanija.site