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.
