Паскаля под рукой нет, так что, возможно, будут ошибки в синтаксисе
Наверное, можно было проще, но старалась максимально подробно

1 задача

var a, b, c: integer;
begin
writeln ('Введите дату рождения Ани: ');
read (a);
writeln ('Введите дату рождения Оли: ');
read (b);
writeln ('Введите дату рождения Лены: ');
read (c);
if (a<b) and (a<c) and (b<c) then
  writeln (Аня старшая, Оля средняя, Лена младшая);
if (a<b) and (a<c) and (c<b) then
  writeln (Аня старшая, Лена средняя, Оля младшая);
if (b<a) and (b<c) and (a<c) then
  writeln (Оля старшая, Аня средняя, Лена младшая);
if (b<a) and (b<c) and (c<a) then
  writeln (Оля старшая, Лена средняя, Аня младшая);
if (c<a) and (c<b) and (b<a) then
  writeln (Лена старшая, Оля средняя, Аня младшая);
if (c<a) and (c<b) and (a<b) then
  writeln (Лена старшая, Аня средняя, Оля младшая)
end.


2 задача

var a: integer;
begin
writeln ('Введите рост человека: ');
read (a);
if (a>180) then
  writeln ('ВЫСОКИЙ')
else
  writeln ('НЕ ОЧЕНЬ ВЫСОКИЙ')
end.