Program menghitung detik menit

program JamKeMenit;

uses crt;

var
jam, menit,i,hasil,dtk,hasildtk : integer;

begin
clrscr;
write(‘Masukkan Nilai Jam : ‘); readln(jam);
i:=60;
dtk:=3600;
if jam =1 then
begin
hasil:=jam*i;
hasildtk:=jam*dtk;
writeln(jam, ‘ jam sama dengan ‘,hasil,’ menit dan ‘, hasildtk, ‘ detik’);
end
else
begin
hasil:=jam*60;
hasildtk:=jam*dtk;
writeln(jam,’ jam sama dengan ‘,hasil, ‘ menit dan ‘, hasildtk, ‘ detik’);
end;
end.