Pascal 帕斯卡重复ABC直到

有一个密码

program roots;
var a, b, c, d,x1, x2,x:real;
begin
  writeln('Введите коэффиценты квадратного уравнения');
  write('a='); readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  begin
  while a=0 then
  writeln('');
  repeat
  else 
  until
  if a=0
  then
    if b=0
    then
    if c=0
    then writeln('Любое x - решение')
    else writeln('Нет решений')
    else
    begin
      x:=-c/b;
      writeln('x=',x)
      end
     else
      begin
        d:=b*b-4*a*c;
        if d<0
        then writeln('Нет вещенственный корней')
        else
        begin
          x1:=(-b+sqrt(d))/2/a;
          x2:=(-b-sqrt(d))/2/a;
          writeln('x1=',x1);
          writeln('x2=',x2)
          end
      end
end.

程序根；
变量a、b、c、d、x1、x2、x：实际值；
开始
书面形式（‘Бааааааааааааааааааа1072；
写（'a='）；readln（a）；
写（'b='）；readln（b）；
写（'c='）；readln（c）；
开始
当a=0时
书面语（“”）；
重复
否则
直到
如果a=0
然后
如果b=0
然后
如果c=0
然后写下（'x-x-x'）
其他书面语（'kh砦砦砦砦砦砦砦砦'）
其他的
开始
x:=-c/b；
writeln（'x='，x）
结束
其他的
开始
d:=b*b-4*a*c；
如果dA
重复。。直到
循环具有以下形式：

repeat

  <code to perform in the loop>

until <condition to terminate the loop>

在
重复中没有
其他
。。直到
。但是，循环中的代码块当然可能包含带有
else
的条件语句。您尝试过任何代码吗？
  ...
  repeat
  else 
  until
  ...