VAR seconds, minutes :Integer;
BEGIN
seconds := 3416;
minutes := seconds DIV 60;
WriteLn(minutes);
ReadLn
END.
Объяснение:
Первая строка задаёт целочисленные переменные.
BEGIN и END - начало и конец программы соответственно.
3 строка - присвоение переменной seconds значения 3416.
4 строка - целочисленное деление, т. е. деление на 60 без остатка.
WriteLn печатает результат 56, т. е. 56 полных минут.
ReadLn не даёт программе закрыться, пока пользователь этого не захочет.
