Var
 a,b:Real;
Begin
 Repeat
  Write('a= ');
  Readln(a);
  if a=0 then writeln('Error: a=0. Enter another value');
 Until a<>0;
 Write('b= ');
 Readln(b);
 Writeln('x = ',b/a:0:5);
 Readln;
End.

Var
 a,b:Real; {задаем вещественные переменные a, b}
Begin {начало программы}
 Repeat {организуем циклический ввод переменной a; выход из цикла - когда будет введено a, отличное от 0}
  Write('a= '); {выводим подсказку на экран перед вводом а}
  Readln(a); {читаем введенное с клавиатуры значение а}
  if a=0 then writeln('Error: a=0. Enter another value'); {проверякм условие равенства а нулю. Если оно истинно - выдаем сообщение об ошибке и повторяем ввод а}
 Until a<>0; {конец цикла ввода а}
 Write('b= '); {выводим подсказку на экран перед вводом b}
 Readln(b); {читаем введенное с клавиатуры значение b}
 Writeln('x = ',b/a:0:5); {выводим результат расчета: x=b/a с пятью знаками после десятичной точки}
 Readln; {остановка выполнения программы; нужна для того, чтобы увидеть на экране результат}
End. {конец программы}