Написать программу в pascal и составить её блок -схему: по возрасту, введённому с клавиатуры, определить, к какой возрастной группе относится человек: от 0 до 7 лет дошкольник. от 8 до 17 лет школьник, от 18 до 23 лет студент, 24-55 лет работник, от 56 лет и старше пенсионер.

varl: integer; beginwriteln('skolko let? '); readln(l); if (l> =0) and (l< =7) thenwriteln('doshkolnik')else if (l> =8) and (l< =17) thenwriteln('shkolnik')else if (l> =18) and (l< =23) thenwriteln('student')else if (l> =24) and (l< =55) thenwriteln('rabotnik')else if l> =56 thenwriteln('pensioner'); end.

var

  a: integer;

begin

  write('введите возраст '); readln(a);

  write('этот человек ');

  case a of

      0..7: writeln('дошкольник');

      8..17: writeln('школьник');

      18..23: writeln('студент');

      24..55: writeln('работник');

      else

        writeln('пенсионер');

  end;

end.

Program area; var a: integer; // сторона а b: integer; // сторона b s: integer; // площадь прямоугольника p: integer; // периметр прямоугольника  begin write("введите а: "); // выводим сообщение  readln(a);   // получаем значение а write("введите b: ");   // выводим сообщение  readln(b);   // получаем значение   b s: =a*b; // вычисляем площадь p: =a*2+b*2;   // вычисляем периметр write("площадь равна: ", s);   // выводим сообщение  write("периметр равен: ", p);   // выводим сообщение  end.

Алгоритм: 1. получить значение с и а. 2. значение с, необходимо умножить на два. 3. прибавить к значению а результат получившийся во 2 шаге.  4. вывести результат.  программа: program  example; var c: integer;   // переменная с a: integer; // переменная а x: integer; // переменная х begin write("введите переменную с: ");   // выводим сообщение readln(c);   // получаем значение write("введите переменную a: ");   // выводим сообщение readln(a);   // получаем значение x: =c*2;   x: =a+x; write("x= ", x);   // выводим сообщение end.