На паскале
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.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.