| 
 | 
вернуться в форумwhere is mistake? SOS Послано  Dior 23 июн 2014 21:05 var m:array [1..10] of integer; q,z,i,s:integer;   begin read(q); write(' '); read(z);   readln(m[1]); s:=m[1];    for i:=2 to 10 do  begin  write(' ');  read(m[i]);  s:=s+m[i];  end;    s:=s*20;    if z-s>=q then write('No chance.')  else write('Dirty debug :(');  end.  |  
  | 
|