Голодная зима. циклы. - Pascal - Ответ 597879

program racion;
     uses crt;
     var d : integer;
     S, t, f, k, pk, pS, pt, pf, u, v, w : real;
     begin
     clrscr;
     writeln('Skolko korov v stade?');
     read(k);
     writeln('Skolko kg sena ostalos?');
     read(S);
     writeln('Skolko kg silosa ostalos?');
     read(t);
     writeln('Skolko kg kombikorma ostalos?');
     read(f);
     writeln('Skolko sena nyzhno 1 korove za sytki?');
     read(u);
     writeln('Skolko silosa nyzhno 1 korove za sytki?');
     read(v);
     writeln('Skolko kombikorma nyzhno 1 korove za sytki?');
     read(w);
     writeln('Skolko % korov pogibaet za sytki?');
     read(pk);
     writeln('Skolko % sena sgnivaet');
     read(pS);
     writeln('Skolko % silosa razvorovivaetsa kolhoznikami?');
     read(pt);
     writeln('Skolko % korma prodaet zav fermoj?');
     read(pf);
     d :=0;
     while (S>0) and (k>0) and (t>0) and (f>0) do
     begin
     k := k-k/100*pk;
     S := (S-S/100*pS)-u*k;
     t := (t-t/100*pt)-v*k;
     f := (f-f/100*pf)-w*k;
     d := d+1;
     end;
     writeln('Kol-vo prowedwix dney: ', d);
     if S<=0 then writeln('Konchilos seno') else
     if t<=0 then writeln('Konchisya silos') else
     if f<=0 then writeln('Konchilsya kombikorm') else
     writeln('Korovi konchilis, korm ostalsya');
     readkey;
     end.