решите,пожалуйста))))

По договоренности без 8.

1. program fdg;

var
  a: integer;

begin
  write('Введите число: ');
  readln(a);
  if a gt; 0
    then a := a + 1;
  writeln(a);
end.


2. program Polog;

var
  mas: array [1..3] of integer;
  i, k: integer;

begin
  k := 0;
  write('Введите 3 числа: ');
  for i := 1 to 3 do
  begin
    readln(mas[i]);
    if mas[i] gt; 0
      then k := k + 1;
  end;
  writeln('Посреди введенных чисел ', k, ' положительных');
 
 
 
3.  program trh;

var
  i, j: integer;

begin
  write('Введите 2 числа: ');
  readln(i, j);
  if i gt; j
      then
    writeln('наименьшее 2-е число')
  else
    writeln('наименьшее 1-е число');
end.



4. program trh;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a = b
  then  begin
    a := 0;
    b := 0;
    writeln
  end
  else a := a + b;
  b := a;
  writeln('a=', a, ' b=', b);
end.


5. program Minimum;

var
  x1, x2, x3, min: integer;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  if (x1 lt; x2) and (x1 lt; x3)
    then  min := x1
  else
  if (x2 lt; x1) and (x2 lt; x3)
    then  min := x2
  else min := x3;
  writeln('малое число: ', min);
end.


6. program Minimum;

var
  x1, x2, x3, sr: integer;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  if (x1 lt; x2) and (x2 lt; x3)
    then  sr := x2
  else
  if (x2 lt; x1) and (x1 lt; x3)
    then  sr := x1
  else sr := x3;
  writeln('среднее из чисел: ', sr);
end.



7. program fgh;

var
  x1, x2, x3, s: integer;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  if (x1 gt; x2) and (x2 gt; x3)
    then  s := x1 + x2
  else
  if (x2 gt; x1) and (x3 gt; x2)
    then  s := x2 + x3
  else s := x1 + x3;
  writeln('Сумма 2-х наивеличайших из чисел: ', s);
end.


9. program fgh;

var
  s: real;

begin
  write('Введите цена покупки: ');
  readln(s);
  if s gt; 1000
    then  s := s - s * 0.03
  else
  if s gt; 3000
    then  s := s - 0.05;
  writeln('Стоимость покупки: ', s);
end.



10. program fgh;

var
  x, f: real;

begin
  write('Введите x: ');
  readln(x);
  if x gt; 5
    then  f := sqr(x) - 1
  else
  if x lt; -2
    then  f := 2 * x;
  writeln('f=', f);
end.