Будте добры помогите с решением 43 и 48 задачки

Question

Будте добры помогите с решением 43 и 48 задачки

---

Answer 1

43:
var a, b, y: integer;
     s: real;
begin
    write('Введите a, b, y: '); readln(a, b, y);
    s := (a * b * sin(y * pi/180)) / 2;
    writeln('Площадь треугольника равна: ', s);
end.

48:
var v1, v2, t1, t2, s: real;
begin
    write('Введите скорость лодки в стоячей воде: '); readln(v1);                         write('Введите скорость течения реки: '); readln(v2);
    write('Введите время движения по озеру: '); readln(t1);
    write('Введите время движения против течения: '); readln(t2);
    s := v1 * t1 + (v1-v2)*t2;
    writeln('Путь пройденный лодкой: ', s);
end.