t,h,m,s:word;

clrscr;
write('Zadaj pocet hodin: ');
readln(h);
write('Zadaj pocet minut: ');
readln(m);
write('Zadaj pocet sekund: ');
readln(s);

t := h * 3600 + m * 60 + s;

writeln('Celkovy cas je ',t, ' sekund.');
readln;