uses crt;
var
sonuc:longint;
dakika,saat,gun,hafta:integer;
begin
clrscr;
writeln('Naz�m DEM˜R   (SDU/Senirkent MYO)');
writeln;
writeln;
textcolor(green);
writeln('                           SAN˜YEYE €EV˜R˜ PROGRAMI');
textcolor(white);
writeln;
writeln;
writeln('BoŸluklara ‡evrilmesini istedi§iniz de§erleri girin');
textcolor(red);
writeln;
writeln('HAFTA=..  GšN=..  SAAT=..  DAK˜KA=..');
textcolor(white);
writeln;
writeln('Sonu‡=.......  saniyedir');
textcolor(white);
***oxy(7,9);
read(hafta);
***oxy(15,9);
read(gun);
***oxy(24,9);
read(saat);
***oxy(35,9);
read(dakika);
sonuc:=(hafta*604800)+(gun*86400)+(saat*3600)+(dakika*60);
***oxy(7,11);
write(sonuc);
***oxy(24,11);
readln;
readln;
end