program konversi;
uses crt;
type jam=record
hh,mm,ss:integer;
end;
var
j:jam;
totaldetik:integer;
begin
clrscr;
write('masukan waktu :');readln(j.hh);
write('masukan waktu :');readln(j.mm);
write('masukan waktu :');readln(j.ss);
totaldetik:=(j.hh*3600)+(j.mm*60)+j.ss;
writeln('j.hh=',totaldetik);
writeln('j.mm=',totaldetik);
writeln('j.ss=',totaldetik);
readln
end.
