с начал времени прошло n секунд сколько прошло минут блок схема и программа pascal

program a;uses crt;var n, a:integer;beginwriteln('сколько секунд');readln(n);a:=n div 60;writeln('прошло ', a, 'минут');readln;end.