Soru = 1 yıl, 1 ay ve 1 haftanın ayrı olarak kaç saniye olduğunu bulan programı prosedürde yapınız.

Şekli :

Kodlar: 

Procedure TForm1.Button1Click(Sender: TObject); 
const 
dk=60;
s=60; g=24;

Procedure yil(dakika,saat,gun:integer); 
var 
yil,ay,hafta:longint;

begin 
hafta:=7*gun*saat*dakika;
showmessage('1 Haftanın Saniye Sayısı : '+inttostr(hafta));
ay:=30*gun*saat*dakika;
showmessage('1 Ayın Saniye Sayısı : '+inttostr(ay));
yil:=365*gun*saat*dakika;
showmessage('1 Yılın Saniye Sayısı : '+inttostr(yil));
end; 

begin 
yil(dk,s,g);
end; 

Çalışma Şekli: 

Saniye hesaplaması butonuna tıklandığında ekrana 1 haftanın, 1 ayın ve 1 yılın saniye sayısını mesajlarla kullanıcıya bildirir.