Question

1. Составьте программу, увеличивающую введенное число на 1, если
оно больше или равно100 и уменьшающее число на 1 в противном
случае.
2. Составить программу, запрашивающую возраст и отвечающую
«Привет друг» если возраст введен меньше 16 лет и отвечающую «Не
знаю тебя» в противном случае.
3. Составить программу - отзывающуюся только на имя «Петя».
ПОЖАЛУЙСТА, помогите

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Введи целое число:');

 if n >= 100 then

   n += 1

 else

   n -= 1;

 Write(n)  

end.

=========================

begin

 if ReadInteger('Сколько тебе лет?') < 16 then

   Write('Привет, друг')

 else

   Write('Не знаю тебя')  

end.

=========================

begin

 if ReadlnString('Как тебя зовут?') = 'Петя' then

   Writeln('Привет,как дела?')

end.