C++ :

#include<bits/stdc++.h>
using namespace std;
int a,b,c;
int main()
{
	cin>>a>>b>>c;
	cout<<a*3600+b*60+c;
	return 0;
}

Pascal :

var a,b,c,d:integer;
begin
 readln(a,b,c);
 d:=a*3600+b*60+c;
 writeln(d);
end.