Найдите ошибку

program Minvaleev
var a,b,x1:
integer; y1, y2, x2:
real;
begin
a:=3; x1:=2; x2:=-2;
writeln('введите в');
readln(в);
if x1>0 then y1:=SQRT(a+SQR(b))-3else y1:=2*a+b;
if x2>0 then y2:=SQRT(a+SQR(b))-3else y2:=2*a+b;
writeln ('minvaleev y1=',y1:5:3);
writeln ('minvaleev y2=',y2:5:3);
readln;
end.