Какое время будут показывать часы через p-час, q-мин, r-сек - Turbo Pascal

Формулировка задачи:

Условие ~~вложено в "Doc1.docx"~~: Ребята обьясните мне "Граммотному", что не так, вроде должно всё работать, однако выдаёт ошибку "Error 94. "." expected", проверил много раз, такое предчувствие что ошибка глупая до ужаса, однако......

                    Листинг программы
                
 
                        
                          
                    
program abs;
var x,y,z: real;
begin
write ('x=');
readln (x);
write ('y');
readln (y);
[COLOR="Lime"]z:=ln(abs(y-sqrt(abs(x)))*(x-y/(x+sqr(x)/4)));[/COLOR]
writeln ('z',z:6:2);
readln
end.

Пользуясь случаем, не хотел создавать новую тему: задача: Текущее показание электронных часов: m ч,(0<=m<=23), n мин. (0<=n<=59), к сек (0<=k<=59). Какое время будут показывать часы через p-час, q-мин, r-сек.? у меня вот такой вариант, подскажите, поправте или предложите свой вариант

                    Листинг программы
                
 
                        
                          
                    
program abs;
var m,n,p,q,r,y,z,o,b,c,d:integer;
begin
write ('кол-во часов');
readln (m);
write ('кол-во минут');
readln (n);
write ('кол-во секунд');
readln (k);
write ('текущее время', m:3,n:3,k:3);
writeln ('прибавляем некоторое время');
write ('кол-во часов');
readln (p);
write ('кол-во минут');
readln (q);
write ('кол-во секунд');
readln (r);
y:=m*3600+n*60+k;
z:=p*3600+q*60+r;
o:=y+z;

А дальше я у меня проблема с формулой которая без циклов, без ветвлений "разложила бы переменную на часы, минуты, секунды" Заранее благодарен, за помощь! (Вложение Doc1.docx удалено)

Решение задачи: «Какое время будут показывать часы через p-час, q-мин, r-сек»

Листинг программы

program abs;
var m,n,p,q,r,y,z,o,b,k:integer;
begin
  write ('кол-во часов:');
  readln (m);
  write ('кол-во минут:');
  readln (n);
  write ('кол-во секунд:');
  readln (k);
  write ('текущее время:', m:3,n:3,k:3);
  writeln (' прибавляем некоторое время');
  write ('кол-во часов:');
  readln (p);
  write ('кол-во минут:');
  readln (q);
  write ('кол-во секунд:');
  readln (r);
  y:=m*3600+n*60+k;
  z:=p*3600+q*60+r;
  o:=y+z;
  m:= o div 3600;
  if m>=24 then
    m:=m-24;
  n:= (o mod 3600)div 60;
  if n>=60 then
    begin
      b:=n div 60;
      m:=m+b;
      n:=n mod 60;  
    end;
  k:=(o mod 3600)mod 60;
  if k>=60 then 
    begin
      c:=k div 60;
      n:=n+k;
      k:=k mod 60;
    end;
  writeln(m,' часов ',n,' минут ',k,' секунд ');
  readln;
end.

Объяснение кода листинга программы

Запрашиваем у пользователя количество часов, минут и секунд.
Выводим текущее время, используя заданные переменные.
Прибавляем к текущему времени новое время, введенное пользователем.
Вычисляем общее время, объединяя время по часам, минутам и секундам.
Если общее время превышает 24 часа, уменьшаем его до 24 часов.
Если общее время составляет менее 60 минут, переносим остаток в следующую минуту.
Если общее время составляет менее 60 секунд, переносим остаток в следующую секунду.
Выводим обновленное время, используя заданные переменные.
Ждем ввода от пользователя.