Составьте программу 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.