Pascal ABC repeat untill

Question

There is a code

program roots;
var a, b, c, d,x1, x2,x:real;
begin
  writeln(\'Введите коэффиценты квадратного уравнения\');
  write(\'a=\'); readln(a);
  wri