Срочно!!!!помогите пж по информатике 8 класс

Question

Срочно!!!!помогите пж по информатике 8 класс

---

Answer 1

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

1 задача

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


2 задача

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