Программу под паскаль t= √(a-b)^2+4 (a-2b)+1

Program math;
var
x, a, t : real;

begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
t := (sqrt((a-b)*(a-b))+4)/((a-2*b)+1);
writeln('t=', t:10:4);
end.