2 задачки 9 класса! Буду сильно благодарен!

program Kopylov;
uses
  crt;
var
  a, b, rez: real;
begin
 
  Write('Enter A[start] = ');readln(a); rez := a;
  Write('Enter B[finish] = ');readln(b);
  if ((a <> b) and (a < b)) then begin
    while (a <> b) do
    begin
      a := a + 0.5;
      rez := rez * a;
    end;
    Writeln('Answer = ', rez:0:3); end
  else Writeln('Error =)');
end.

{С клавиатуры вводятся 2 однозначных целых числа a и b. Посчитать
произведение всех вещественных чисел от a до b, с шагом 0,5. Результат
вывести с точностью 0,001.}
uses crt;
var a,b:byte;
    x,h,p:real;
begin
repeat
writeln('Введите 2 однозначных целых числа:');
read(a,b);
until(a in [1..9])and(b in [1..9])and(b>a);
h:=0.5;
x:=a;
p:=1;
while x<=b do
 begin
  p:=p*x;
  x:=x+h
 end;
write('P=',p:0:1);
end.