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

Question

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

Answer 1

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

---

Answer 2

program choise;

var m:integer;

begin

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

 read(m);

 if m=1 then  

   writeln('Привет')

 else if m=0 then  

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

 else  

   writeln('Пока');

end.