Reikia pagalbos su pascal

Reikia pagalbos su pascaliu kadangi nemokinuos jo jau metus tai nelabai atsimenu gal kas galėtų parašyti programėlę tokiam uždaviniui.

Šiandien švenčia gimtadienį .Jam sukanka a metų.Parašykite programą kuri apskaičiuotų kiek mėnesių mėn dienų d ir valandų v Tautvydas jau pragyveno šiame pasaulyje.Programoje naudokite sveikųjų skaičių tipa longint.Spręsdami uždavinį laikykite,kad metai turi 365 dienas.Pasitikrinkite: įvedę 16 turėtumėte gauti : mėn=192,d=5840,v=140160.Ačiū

program gimtadienis;
var a, men, d, v : longint;
begin
writeln ('Kiek sukako metų?');
readln (a);
men := a*12;
d := a * 365;
v := d * 24;
writeln ('Vaikas gyvena jau ', a, ' mėn, ', d, ' dienas, ', v, 'valandas');
end.

Bus daug klaidų turbūt, neturiu FPS.

Dėkui klaidas išsitaisysiu

program gimtadienis;
var a, men, d, v : longint;
begin
writeln ('Kiek sukako metų?');
readln (a);
men := a*12;
d := a * 365;
v := d * 24;
writeln ('Vaikas gyvena jau ', a, ' mėn, ', d, ' dienas, ', v, 'valandas');
end.

 

Bus daug klaidų turbūt, neturiu FPS.

Dėkoju labai.