hudsonas

Manau, šiek tiek paprastesnis variantas:
 

program pinigai; var p1, p2, p3, p4, p5, pinigai : integer; begin WriteLn('Įveskite 5 pažymius'); ReadLn(p1,p2,p3,p4,p5); if (p1 = 10) or (p1 = 9) then pinigai += 5; if (p2 = 10) or (p2 = 9) then pinigai += 5; if (p3 = 10) or (p3 = 9) then pinigai += 5; if (p4 = 10) or (p4 = 9) then pinigai += 5; if (p5 = 10) or (p5 = 9) then pinigai += 5; WriteLn('Moksleivis turės: ',pinigai,' litų'); Readln; end.

Taip, nes yra 6 variantai, kaip skaičiai gali būt sudėti. Trys if'us išeitų padaryt mano nuomone naudojant tokią logiką
 

if (a > b) swap(a,b) if (b > c) swap(b,c) if (a > b) swap(a,b) print a,b,c