reikia pagalbos su uzduotimi

kaip reiketu pascalio kalba parasyti uzdavinio 1 daly .

petriukas gali suvalgyti 20% turimu obuoliu per diena bet ne maziau 3. jei lieka maziau negu 3 , jis juos paima ir suvalgo ir turi rasyt (obuoliu nebera)

kaip mazdau turetu atrodyti sita salyga?

:) pagelbekit :)

if( Petriukas <= valgo 20% turimu obuoliu AND lieka >= 3)

turi rasyt (obuoliu nebera)

program Noname1;
var kiekis: integer;
suvalgo: real;
begin
 WriteLn('Kiek turi obuoliu?');
 ReadLn(kiekis);
 suvalgo := kiekis*0.2;
 if suvalgo < 3 then
suvalgo := 3;
 if kiekis < 3 then
WriteLn('Obuoliu nebera')
 else
WriteLn('Suvalgo ',suvalgo:0:0,' obuolius.');
 ReadLn;
end.

program Bevardė2;
var  k, r, j, m,h:integer;
 n,n2,n3, n1,n4:real;
begin
 WriteLn('kiek petras laimejo');
 Readln (n);
 WriteLn('kiek procentu duos valstybei');
 Readln (k);
 WriteLn('kiek kamset isleidzia pietka');
 Readln (r);



for m:= 1 to 10 do begin
n2:= (n*k)/100; //kiek atyduoda bankui
n1:= n-n2;	 //kiek lieka po atydavimo
n3:= n1*0.06;
n:= n1+ n3;
 n4:=n-r;

  writeln (m,' sask liko ', n4,' isleido',r,'uzaugo',n);
  if n<r then writeln ('petriukas pasime pinigus');
  if n=0 then writeln ('saskaita tuscia');

  end;

readln();


end.

uzduoti radau internete

Petriukas Laimėjo aukso puodą – gavo N litų. Sumokėjęs K procentų mokesčių valstybei, likusią pinigų sumą padėjo į banką. Bankas moka 6% metinių palūkanų, kurias priskaičiuoja metų gale. Petriukas kasmet savo reikmėms išleidžia R litų, kuriuos paima iš karto metų pradžioje.

Parašykite programą, kuri pateiktų Petriukui pinigų apskaitą per pirmuosius 10 metų: spausdinkite metų eilės numerį, sąskaitoje likusią bei išlaidoms skirtą pinigų sumas. Pinigams išsekus, spausdinkite pranešimą: Sąskaita tuščia. Jeigu sąskaitoje lieka mažiau kaip R litų, tuomet Petriukas paima visus likusius pinigus.

Pradiniai duomenys – N, K, R įvedami klaviatūra.

o uzstrigau kaip padaryt kad kai raso patriukas paime pinigus ir sustotu skaiciavimas toliau , bei ar geras skaiciavimas?

Pinigus kuriuos atiduoda valstybei nereikia kisti i cikla for, nes atiduoda tik 1 karta.

Jei nori kad sustotu, tai reikejo ne for o while naudot ir while salygoj ziuret ar turi pinigu ir kelinti metai.