Viết chương trình cho phép nhập vào giờ, phút và giây, hãy đổi sang giây và in kết quả ra màn hình Giúp mình với ạ

program bai_giai;

uses crt;

var gio, phut, giay:longint

begin

clrscr;

write('nhap gio:');readln(gio);

write('nhap phut:');readln(phut);

write('nhap giay:');readln(giay);

write('so giay doi ra la:',(gio * 60*60)+(phut*60)+giay);

readln

end.