Задача 1. Напишем программу, разрешающую доступ только для тех, чей возраст старше 21 года. Задача 2. Компания проводит опрос общественного мнения и ее интересуют люди в возрасте от 20 до 70 лет включительно. Нужно написать программу, которая запрашивает возраст претендента и выдает ответ: «подходит» он или «не подходит» по этому признаку.

Задача 3. Запишем программу по сохранению файла с использованием условных операторов и операторов сравнения:

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

на 1 дереве - 5 

на 2дереве - 7

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

  writeln(x) вот этой! потому что если взять  в ковычки выведет х