00>>>begin loading....
01>>> If "собачка-пудель", then "понос"
02>>> If "котяра", then "заворот кишок"
03>>> If "я пас!!", then "все равно деньги на бочку!"
>>>>> quit program

Berill, я уже половину твоей работы сделала

var
Zakaz: Integer;
begin
Writeln(’1. Собачка - пудель’);
Writeln(’2. Котяра’);
Writeln(’3. Я пас’);
Writeln(’--------------------------------------’);
Writeln(’Введите номер от 1 до 3’);
Readln(Zakaz);

Writeln(’--------------------------------------’);
Writeln(’Последствия:’);
case Zakaz of
1: Writeln(’Понос’);

2: Writeln(’Заворот кишечника’);

3: Writeln(’Бабки все равно придется платить!!!’);

else
Writeln(’Чукча!!!! Написано же ввести номер от 1 до 3!!!! Мля!!!!’);
end;
Readln;
end;