alpha

var a,b,c,d,e,f,g,j,l,m:string;
x,y,z,w:string;
label 1;
begin
Randomize;
a:=random(99); //рабы
b:=random(3);   //замки
d:=random(333); //золота
writeln('Введите свое имя');
read(y);
writeln('');
writeln('Здравствуйте великий князь , y);
writeln('Я ваш верный и покорный слуга Хуся');
writeln('Сейчас мы находимся в вашем замке Тьмутаракань');
1:
e:=random(33);
f:=random(99);
j:=random(333);
g:=random(999);
L:=random(3);
m:=random(9);
writeln('Можете задать любой вопрос');
read(x);
if x='продать' then begin
read(y);


if Y='рабов' then

if Y='Хусю' then






if X='купить'
read(y);
if Y='рабов' then


if Y='Хусю'

if X='сколько'
read(y);
if Y='золота' then


if Y='рабов' then



if Y='замков' then


if Y='хусь' then