Решите поберегите мои нервы.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end

трех сажаешь по углам ограждения , двух в центр 

var x,y,x1,y1,x2,y2: integer;

begin

  read(x,y,x1,y1,x2,y2);

  if (x< x1) and (x> x2) and (y< y1) and (y> y2) then

      writeln('da')

  else writeln('net');

end.