Paskaliukas

Hi, mokausi paskalio, ir vat turiu klausimų.

Užduotis:

Šiandien Tautvydas švenčia gimtadienį. Jam sukanka a metų. Parašykite programą, kuri apskaičiuotų, kiek mėnesių men, ir dienų d ir valandų v Tautvydas jau gyvena šiame pasaulyje. Programoje naudokite sveikųjų skaičių tipą longint. Tarkime, kad metai turi 365 dienas. Pasitikinkite įvedę a = 16, turėtumėte gauti: men = 192, d = 5840, v = 140160

Kodas:

program metai; // pavadinimas
var a, d, v, men : longint; // kintamieji ir skaiciu tipas
begin
 a := 16;    // kiek metu
 men := a*12; // menesiai
 d := 365*a; // dienos
 v := 365*24; // valandos
 WriteLn('Nugyvenote: ',v ,' valandu'); // galutinis atsakymas
 Readln;
end.

Kažką prijoviau turbūt?

v := 365*24*a;

Man atrodo tu ne į tą dešimtmetį rašai.

 v := 365*24;

sakau gal metų trūksta

program metai; // pavadinimas
var a, d, v, men : longint; // kintamieji ir skaiciu tipas
begin
 WriteLn('Įveskite metų skaičių ');
 ReadLn(b);
 men := b*12; // menesiai
 d := 365*b; // dienos
 v := 365*24*b; // valandos
 WriteLn('Nugyvenote: ',v ,' valandu, ', d, ' dienų, ' ,men, ' mėnesių.'); // galutinis atsakymas
 Readln;
end.

program metai; // pavadinimas
var a, d, v, men : longint; // kintamieji ir skaiciu tipas
begin
 WriteLn('Įveskite metų skaičių ');
[b] ReadLn(b);[/b]
 men := b*12; // menesiai
 d := 365*b; // dienos
 v := 365*24*b; // valandos
 WriteLn('Nugyvenote: ',v ,' valandu, ', d, ' dienų, ' ,men, ' mėnesių.'); // galutinis atsakymas
 Readln;
end.

error dėl šios eilutės.

program metai; // pavadinimas
var b, d, v, men : longint; // kintamieji ir skaiciu tipas
begin
 WriteLn('Įveskite metų skaičių ');
 ReadLn(b);
 men := b*12; // menesiai
 d := 365*b; // dienos
 v := 365*24*b; // valandos
 WriteLn('Nugyvenote: ',v ,' valandu, ', d, ' dienų, ' ,men, ' mėnesių.'); // galutinis atsakymas
 Readln;
end.