(признайся про Любу, Лену, майл , роза) ну и всё .
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);
<span>end.
Сам такое недавно делал, только на КуМИР'е)</span>
Сканер со слайд адаптером
X : real (вещественный);
Если это массив, то array [0,2..0,5]
2 марта Галя,17 мая Тамара,2 июля Катя,20 марта соня