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

program choise;

var m:integer;

begin

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

 read(m);

 if m=1 then  

   writeln('Привет')

 else if m=0 then  

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

 else  

   writeln('Пока');

end.