Электронным ресурсом не является

Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
  begin
    while y>0 do
      begin
        c:=x mod y;
        x:=y;
        y:=c;
      end;
      NOD:=x;
  end;
Function NoK(x,y:longint):longint;
  begin
    NOK:=(x*y) div NOD(x,y);
  end;
begin
  readln(a,b,c,d);
  n:=NoK(b,d);
  a:=a*(n div b);
  c:=c*(n div d);
  m:=a+c;
  k:=nod(a,c);
  write(m div k, ,n div k);
end

Ответ:14 часов пройдёт до звонка будильника.

110100 вродебы если правильно то да

1024000*10/8/1024=1250Кбайт
Домножаем на 10 , чтобы узнать размер файла
делим на 8 , чтобы перевести из бит в байты
делим на 1024 , чтобы перевести из байт в Кбайты