Задача в паскале

Question

Задача:
Робот-компостер проверяет билеты в автобусе.
существует 3 типа билетов:
1. по 3 рубля без места
2. по 5 рублей с местом в случае выхода другого пассажира
3. по 10 рублей с гарантированным сидячим местом
Робот запрашивает у пассажира цену билета и, в зависимости от неё, выдает ответы:
- проезд стоя;
- ждите места;
- присаживайтесь пожалуйста.
В программе Pascal ABC составьте программу для такого Робота.

anchor_district · Accepted Answer

Program Composter;
var a :integer;
begin
read(a);
if a=3 then writeln('Проезд стоя');
if a=5 then writeln('Ждите места');
if a=10 then writeln('Присаживайтесь пожалуйста');
end.

yagami__light · Answer

А ещё в случае нехватки сидящих мест при покупке самого дорого билета робот должен расстреливать рандомного сидящего пассажира и выносить труп, чтобы освободить место)