var a,b,c,d:integer; {a- золото, b- жизни}
begin
a:=100;
b:=100;
writeln(‘================================================’);
writeln(‘Правила игры: набери 500 жизней и убеги от злого огра =)’);
writeln(‘================================================’);
repeat
writeln(‘Количество жизней ‘,b,’ Количество денег ‘,a);
writeln(‘Вы увидели огра! Что будете делать???’);
writeln(‘1 — убежать,2 — биться, 3 — упасть в обморок’);
readln(c);
case c of
1: a:=a-50;
2: b:=b-50;
3: a:=a-25;
end;
if c=1 then writeln(‘Золото ‘,a,’ Жизни ‘,b);
if c=2 then writeln(‘Золото ‘,a,’ Жизни ‘ ,b);
if c=3 then writeln(‘Золото ‘,a,’ Жизни ‘,b);
writeln(‘================================================’);
writeln(‘Кажется опасность миновала… Самое время подкрепиться! Что купите в лавке?’);
writeln(‘1 — кекс(50 золотых, + 75 к здоровью),2 — шнапс(25 золотых, + 50 к здоровью), 3 — воду(26 золотых, + 25 к здоровью)’);
readln(d);
case d of

1: b:=b+75;
2: b:=b+50;
3: b:=b+25;
end;
if d=1 then
begin
a:=a-50;
writeln(‘Золото ‘,a,’ Жизни ‘,b);
end;
begin
if d=2 then
a:=a-25;
writeln(‘Золото ‘,a,’ Жизни ‘ ,b);
end;
begin
if d=3 then
a:=a-10;
writeln(‘Золото ‘,a,’ Жизни ‘,b);
end;
writeln(‘================================================’);
until b>500;
if (b>=500) then
writeln(‘Вы победили! Слава победителю!!!’);
end.