Ak sa vyznáš aspoň trochu tak uvidíš že je nemožné aby to bol vir.
Tu máš zdroják, ak ti to pomôže:
- Kód: Vybrat vše
program wineofzamorak;
var
woz_price: integer;
law_price: integer;
wrune_price: integer;
trips: integer;
all_law_price: integer;
all_woz_price: integer;
begin
(* INFO *)
writeln('Wine of Zamorak Grabber Calculator.');
writeln('Created by mTx.dll.');
writeln;
writeln('You must have Staff of Air equipped.');
(* KONIEC INFO *)
writeln;
(* CENY *)
writeln('Wine of Zamorak price is:');
readln(woz_price);
writeln('Law Rune price is:');
readln(law_price);
writeln('Water Rune price is:');
readln(wrune_price);
writeln('Number of trips:');
readln(trips);
(* KONIEC CENY *)
writeln;
writeln;
writeln('----------------------------------------------------------------');
(* VYPOCTY *)
all_law_price := law_price * 27 * trips;
all_woz_price := woz_price * 26 * trips;
write('You need ', wrune_price + law_price * trips * 27, ' Coins,');
write(' to buy ', trips * 27, ' Law Runes + ', trips, ' water Runes.');
writeln;
writeln;
writeln('You will earn ', all_woz_price - all_law_price - wrune_price * trips, ' Coins.');
(* KONIEC VYPOCTY *)
writeln('----------------------------------------------------------------');
writeln;
(* PODAKOVANIE *)
writeln('Thank you for using WoZ Grabber Calculator.');
writeln('Press ENTER to exit.');
readln;
end.