Viết chương trình nhập vào giờ, phút, giây. Đổi ra có bao nhiêu giây

Program BTH;

uses crt;

var a,b,c,d:longint;

begin

clrscr;

Write('Nhap gio: ');readln(a);

Write('Nhap phut: ');readln(b);

Write('Nhap giay: ');readln(c);

a:=a*3600;

b:=b*60;

d:=a+b+c;

Writeln('Tong so giay la: ',d);

readln;

End.

program Min;
uses crt;
var gio,phut,giay,kq:integer;
begin
    writeln('Nhap gio, phut, giay: '); readln(gio,phut,giay);
    gio:=gio*3600;
    phut:=phut*60;
    kq:=gio+phut+giay;
    writeln('So giay la: ',kq);
    readln
end.

Bạn kiểm tra lại nha :D