Пожалуйста посчитайте плз очень важно, заранее спасибо​

   Var

    X, Y:Integer;

   Begin

    Write('Напишите кол-во секунд: ');

    Readln(X);

    Y:=X div 60;

    Writeln('Полных минут: ',Y);

    Y:=X mod 60;

    Write('И ',Y, ' секунд.');

   End.