Pascal uždavinys

Sveiki, gal kas galite padėti su siuo uždaviniu: 1. Viena cigaretė kainuoja a litų. Jaunuolis per dieną surūko b cigarečių. Po kiekvienų rūkymo metų, surūkytų cigarečių dienos norma i užauga c cigarečių. Parašykite programą kuri apskaičiuotų, kiek pinigų žmogus pavers sveikatai kenksmingais dūmais per n metų (tarkime, kad metai turi 365 dienas).

Bandžiau spęsti, bet meta klaida-syntax error expected but not found

Mano sprendimas:

program Noname0;

var i,c,n:=integer;

a,p,d,ats:=real;

begin

WriteLn('Iveskite vienos cigaretes kaina');

Readln(a);

writeln('Iveskite kiek cigareciu surukote per diena');

readln(i);

writeln('Keliomis cigaretemis kitais metais planuojate surukyti daugiau');

readln©;

writeln('Kiek metu planuojate rukyti');

readln(n);

d:=0;

ats:=0

while d<n do

begin

p:=a*i*365;

ats:=ats+p;

d:=d+1;

end;

writeln(ats);

readln();

readln();

end.

O tai cigareciu kaina kokia??

EDIT: pamaciau jau

Sveiki, gal kas galite padėti su siuo uždaviniu: 1. Viena cigaretė kainuoja a litų. Jaunuolis per dieną surūko b cigarečių. Po kiekvienų rūkymo metų, surūkytų cigarečių dienos norma i užauga c cigarečių. Parašykite programą kuri apskaičiuotų, kiek pinigų žmogus pavers sveikatai kenksmingais dūmais per n metų (tarkime, kad metai turi 365 dienas).

Bandžiau spęsti, bet meta klaida-syntax error expected but not found

Mano sprendimas:

program Noname0;

var i,c,n:=integer;

a,p,d,ats:=real;

begin

WriteLn('Iveskite vienos cigaretes kaina');

Readln(a);

writeln('Iveskite kiek cigareciu surukote per diena');

readln(i);

writeln('Keliomis cigaretemis kitais metais planuojate surukyti daugiau');

readln©;

writeln('Kiek metu planuojate rukyti');

readln(n);

d:=0;

ats:=0 <---- trūksta ;

while d<n do

begin

p:=a*i*365;

ats:=ats+p;

d:=d+1;

end;

writeln(ats);

readln();

readln();

 

end.

permečiau akim, viena klaida sintaksinė užkliuvo, pačio kodo nenagrinėjau, pabandyk, gal padės ;)

permečiau akim, viena klaida sintaksinė užkliuvo, pačio kodo nenagrinėjau, pabandyk, gal padės ;)

Nepadėjo, vis tiek žymi klaidą. Šioje linijoje-var i,c,n:=integer;

var sintakse ne var a := integer; o var a : integer;

program Noname0;
var i,c,n: integer;
   a,p,d,ats:real;
begin
   WriteLn('Iveskite vienos cigaretes kaina');
   Readln(a);
   writeln('Iveskite kiek cigareciu surukote per diena');
   readln(i);
   writeln('Keliomis cigaretemis kitais metais planuojate surukyti daugiau');
   readln(c);
   writeln('Kiek metu planuojate rukyti');
   readln(n);

   d:=0;
   ats:=0;
       while d<n do
           begin
               p:=a*i*365;
               ats:=ats+p;
               d:=d+1;
           end;
   writeln(ats:3:2, ' Lt.');

readln;
end.

Ar atsakyma isveda teisingai neziurejau.

Dėkoju, truputi dar reikėjo pakoreguoti, bet viskas gerai :)