В условии if then присвоить переменной значение

@Nachalnika · Регистрация: 25.11.2012

Author24 — интернет-сервис помощи студентам

Собственно мне надо что бы переменной l присваивался пример.
вот нужный отрывок кода

Pascal

writeln('den выберите оружие(указывать цифру): 1-меч,2-двуручный топор,3-лук,4-драться на кулаках');
readln(o);
if o=1 then l:=(r-p);//урон den (выбираем себе оружие)
if o=2 then l:=(r-u);
if o=3 then l:=(r-i);
if o=4 then l:=(r-q);

Но он у меня почему-то присваивает r.. а не допустим r-u..
Как сделать так,что бы оно работало так,как мне надо?

@Puporev · 07.09.2013, 19:06

переменным p,u,i,q где-то раньше присвоить значения, сейчас они равны 0

@Nachalnika · 07.09.2013, 19:10 **[ТС]**

Хм,и в правду,не заметил,спасибо

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.09.2013, 19:06	2
	переменным p,u,i,q где-то раньше присвоить значения, сейчас они равны 0 1

@Nachalnika 4 / 4 / 0 Регистрация: 25.11.2012 Сообщений: 80
	07.09.2013, 19:10 [ТС]	3
	Хм,и в правду,не заметил,спасибо 0