Составьте программу S=корень a b

var i,a,b:integer;
er:boolean;
begin
Repeat
  Write('Введите a: ');
  Readln(a);
  Write('Введите b: ');
  Readln(b);
  if a*b<0 then begin
    er:=true;
    Writeln('Ошибка. Корень из отрицательного числа вычислять нельзя.');
 end;
until not(er=true);
Writeln('SQRT(a*b) = ',sqrt(a*b));
end.

спасибо