Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах) — Pascal(Паскаль)

Program name;

var
  a, b, s, p, u, g, h, c: real;

begin
  writeln('vvedite zna4enie osnovaniya A');
  readln(a);
  repeat
    ;
    writeln('vvedite zna4enie osnovaniya B');
    if not(a > b) then
      writeln('VVedite a > b');
    readln(b);
  until (a > b);
  writeln('vvedite ugol ALPHA');
  readln(u);
  g := (a - b) / 2;
  c := g / cos(u);
  p := a + b + 2 * c;
  h := c * sin(u);
  s := ((a + b) / 2) * h;
  writeln('perimetr P=', p:2:2);
  writeln('ploshad S=', s:2:2);

end.

var
  p, s, alfa, a, b, h, x1, x2, x3: real;

begin
  read(a, b, alfa);
  x1 := a - b;
  x2 := x1 / sin(alfa);
  x3 := x2 * cos(alfa);
  p := a + b + x2 + x3;
  s := (a + b) * x3 / 2;
  writeln('ploshad s=', s:8:3, 'perimetr =', p:8:3);

end.