Pascal ABC Если пользователь вводит 1 отвечать "привет" если 0 то "как дела?" если любое другое число "Пока".Заранее спасибо.

Один из вариантов кода программы на скриншоте.

program choise;

var m:integer;

begin

 writeln('Введите натуральное число ');

 read(m);

 if m=1 then  

   writeln('Привет')

 else if m=0 then  

   writeln('Как дела?')

 else  

   writeln('Пока');

end.