ЦЧД

program Dobytok_cyFr;

uses CrT;

Var a,b,c,t,f:byte;

BEGIN

Writeln('Vvesty kilkist hvylyn');

Readln(t);

a:= t div 60;

Writeln(a);

b:= t mod 60;

Writeln(b);

//c:= t div   mod ;

Writeln(c);

//f:=a*b*c;