Saat hesaplama

başlangıç saati ve tahmini varış süresi verilen yolun varışını hesaplama

program saatbul(input,output);
var
gun,saat1,saat2,dakika1,dakika2,ssaat,sdakika:integer;
begin
writeln('yola cikilacak saati yazin');
readln(saat1);
writeln('yola cikilacak dakikayi yazin');
readln(dakika1);
writeln('yolda gececek saati yazin');
readln(saat2);
writeln('yolda gececek dakikayi yazin');
readln(dakika2);
sdakika:=dakika1+dakika2;
ssaat:=saat1+saat2;
if sdakika>=60
then
    begin
       ssaat:=ssaat+sdakika div 60;
       sdakika := sdakika mod 60;
    end;
if ssaat >=24
then
    begin
       gun :=ssaat div 24;
       ssaat := ssaat mod 24;
       writeln(gun,' gun ',ssaat,' saat ',sdakika,' dakika')
    end
else
  writeln(ssaat,' saat ',sdakika,'dakika');
  readln()
end.