Ответ: 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.Сам такое недавно делал, только на КуМИР’е)