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.

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