СОСТАВИТЬ Программки PASCAL 50 БАЛЛОВ

1)
var
  a, b:real;

begin
  write('Катет A = ');
  readln(a);
  write('Катет B = ');
  readln(b);
  writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.

2)
var
  a, b:integer;

begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if a=b then writeln('Сумма a и b = ',a+b)
  else writeln('Творение a и b = ',a*b);
end.

3)
var
  a, b, c, D, x1, x2: real;

begin
  write('Коэффицент A = ');
  readln(a);
  write('Коэффицент B = ');
  readln(b);
  write('Коэффицент C = ');
  readln(c);
  D := sqr(b) - (4 * a * c);
  if D gt; 0 then begin
    x1 := (-(sqrt(D)) - b) / (2 * a);
    x2 := (sqrt(D) - b) / (2 * a);
    writeln('x1 = ', x1);
    writeln('x2 = ', x2);
  end
  else if D = 0 then begin
    x1 := -b / 2 * a;
    writeln('x = ', x1);
  end;
  if D lt; 0 then writeln('Корней нет.');
end.