[pascal] program do metina, prosze o poprawe.

[watus]

Witam, postanowilem napisac program w pascalu do gry metin2 obliczajacy obrazenia w zaleznosci od wartosci ataku i bonusów w broni.

Dzialanie:
gracz podaje:
ile ma ataku z 1 bronia w statystykach
ile bije z hita/konia z 1 bronia
ile ma % bonusu na potywory( z kd i z innych bonusow) z 1 bronia
ile ma sr obrazenia 1 broni
ile ma ma ataku z 2 bronia
ile ma % bonusu na potywory( z kd i z innych bonusow) z 2 bronia
ile ma sr obrazenia 2 broni
program ma obliczyc ile bedzie bila postac w 2 broni.

(dla tych co nie graja w metina a chcieli by pomoc: kd i sr dodaje % ataku do podstawowego ataku)

Kompilator online wywala mi jakies bledy. Co zrobilem zle.

Program srednie;
var
atak1, atak2, atak3, atak4, hit, kd_i_potwory, kd_i_potwory2, srednie1, srednie2 : real;
begin
write('podaj 1 atak z 1 bronia: ');
readln(atak1);
write('podaj 2 atak z 1 bronia: ');
readln(atak2);
write('po ile bijesz z hita: ');
readln(hit);
write('Podaj ile masz % na potwory w kd i bonusach ');
readln(kd_i_potwory);
write('Podaj srednie obrazenia twojej broni: ');
readln(srednie1);
wszystkie_bonusy:=(srednie1+kd_i_potwory)/100;
bez_sr:=(hit*100/wszystkie_bonusy);
sredniatak1:=(atak1+atak2)/2;
write('podaj 1 atak z 2 bronia: ');
readln(atak3);
write('podaj 2 atak z 2 bronia: ');
readln(atak4);
write('Podaj ile masz % na potwory w kd i bonusach, rowniez w nowej broni ');
readln(kd_i_potwory2);
write('Podaj srednie obrazenia twojej broni: ');
readln(srednie2);
wszystkie_bonusy2:=(srednie2+kd_i_potwory2)/100;
koncowy_atk:=(bez_sr*wszystkie_bonusy2);
writeln('Bedziesz bil po : ',koncowy_atk);
readln;
end.

 

problem rozwiazany, zamykac