var q,w,e:integer;
var a,bc:string;
var h:integer;
var i:integer;
var r:integer;
var m:integer;
var p:integer;
var f:integer;
var j,k:integer;
var y:integer;
var o:integer;
var l:integer;
begin
f:= 0;
h:= 30;
o:= 10;
writeln('Выберите клас вашего персонажа');
writeln('1-клас воина, воины имеют самую большую атаку, но они имеют маленькую ловкость; 2-клас мага, использует заклинания для достижения любой цели; 3-клас наёмник имеет среднею атаку и среднею ловкость');
readln(i);
if (i=2) then begin
writeln('Вы выбрали клас мага, атака= 10, защита=6');
repeat writeln('у вас',' ',h,' ','жизней ',' ',f,' ',' денег',' ',o,' ',' маны');
readln;
randomize;
r:= random(4);
q:= random(10);
w:= random(14);
if (r=1) then begin writeln('За сегоднешний день ничего не произошло, вы можете зайти в магазин для этого нажмите 1, или продолжить путишествие нажмите 2');
readln(m);
if(m=2) then writeln('Вы продолжили свой путь');
if (m=1) then begin writeln('Вы находитесь в магазине, выберите предмет который хотите купить: 1- лечение(стоит-20монет); 2- мана ,или выйти - 3');
readln(p);
if (p= 3) then begin writeln('вы вышли из магазина');
end;
if (p=2) then begin
if (f>29) then begin
writeln('Вы купили ману +10 к мане');
o:= o+10;
f:= f-30;
end;
if (f<30) then begin writeln('Вам не хватает денег');
end;
end;
if (p=1) then begin 
if (f>19) then begin
writeln('Вы купили лечение, к вашим жизням прибавиться 15хп');
writeln(h,'+ 15');
h:= h+15;
f:= f-20;
end;
if (f<20) then begin writeln('Вам не хватает денег на покупку');
end;
end;
end;
end;
if (r=3) then begin writeln('Вы напали на противника, готовы?1-да;2-нет');
readln(y);
if (y=1) then begin
writeln('Вы можете использовать заклинание, 1-уменьшает атаку врага(2 маны),2- увеличивает вашу атаку на 5(2 маны), 3-ничего');
readln(l);
if (l=1) then begin
w:= random(10);
o:= o-2;
end;
if (l=2) then begin
q:= random(15);
o:= o-2;
end;

if (l=3) then begin writeln('вы ничего не выбрали');
q:= random(10);
w:= random(15);
end;
if (q>w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('Вы победили');
h:= h+w;
f:= f+15;
end;
if (q<w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('вы проиграли');
h:= h-w;
end;
if (q=w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('ничия');
h:= h-w;
end;
end;
end;
readln;
if (r=3) then begin
writeln('На вас напал противник');
writeln('Вы можете использовать заклинание, 1-уменьшает атаку врага(2 маны),2- увеличивает вашу атаку на 5(2 маны), 3-ничего');
readln(l);
if (l=1) then begin
if (o>1) then
w:= random(10);
o:= o-2;
if (o<2) then writeln('не хватает маны');
end;
if (l=2) then begin
if (o>1) then 
q:= random(15);
o:= o-2;
if (o<2) then writeln('не хватает маны');
end;
if (l=3) then begin writeln('вы ничего не выбрали');
q:= random(10);
w:= random(15);
end;
readln;
if (q>w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('Вы победили');
h:= h+w;
f:= f+10;
end;
if (q<w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('вы проиграли');
h:= h-w;
end;
if (q=w) then begin
writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
writeln('ничия');
h:= h-w;
readln;
end;
end;
if (r=4) then writeln('день прожит в пустую');
until h < 1;
end;