Program z1;
var a,b,c:integer;
begin
writeln('Введите кол-во секунд: ');
read(a);
b:=a div 60;
c:=a mod 60;
write (a, ' секунд - это ', b, ' минут(ы) ', c, ' секунд(ы).')
end.
Объяснение:
