С начала суток прошло N секунд (N-целое).отыскать количество полных минут,прошедших с

Program kolichestvo_proshedshyh_minyt;
Uses CRT;
Var N , M: integer;
Begin
CLRSCR;
Writeln( введите количество секунд с начала суток N = );
Readln(N);
M:= N div 60;
writeln( с начала суток прошло , M:10 , полных минут );
repeat until keypressed;
END.