Напишите программы на паскаль пожалуйста.

1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника.
2) Определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между пешеходами L, скорость первого пешехода V1, скорость второго пешехода V2.

1)var a,h,b,s:real;beginwrite('Введите длину боковой стороны = ');readln(a);write('Введите высоту = ');readln(h);b:=sqrt(a*a-h*h); // половина основания треугольникаs:=b*h;writeln('Площадь треугольника = ',s:6:2);end.2) var L,V1,V2,t:real;beginwrite('Введите расстояние между пешеходами (км) = ');readln(L);writeln('Введите скорости пешеходов через пробел (км/ч)');readln(V1,V2);t:=L/(V1+V2);writeln('Пешеходы встретятся через ',t ,' час');end.