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

спасибо

var i,a,b:integer;er:boolean;beginRepeat  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.