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

1) program n1;

var a: integer;

begin

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

readln (a);

if a> =100 then

writeln (a+1)

else writeln (a-1)

end.

2) program n2;

var a: integer;

begin

writeln ('сколько тебе лет? ');

readln (a);

if a< =16 then

writeln (' друг')

else writeln ('не знаю тебя')

end.

3) program n3;

var a: string;

begin

writeln ('введи имя');

readln (a);

if a='петя' then

writeln (' друг')

else writeln ('не знаю тебя')

end.

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.