var a,b,c:integer;
begin
writeln ('ВВедите число');
readln(a);
b:=a div 60;
c:=a mod 60;
writeln ('Кол-во часов','=',b);
writeln ('Кол-во минут','=',c);
end.