Program dr; var a, b,c, d,x1,x2: real; begin d: =b*b-4*a*c; read(a, b,c); if d< 0 then writeln ('корней нет') else if d=0 then begin x: =-b/(2*a): writeln(x); end; else begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln(x1); writeln(x2); end; end. program1.pas(9) : встречено 'else', а ожидался оператор. в чём проблема?

Program dr; var   a,b,c,d,x,x1,x2: real; begin   read(a,b,c);   d: =b*b-4*a*c;   if d< 0 then writeln ('корней нет')   else       if d=0 then begin x: =-b/(2*a); writeln(x); end       else begin           x1: =(-b-sqrt(d))/(2*a);           x2: =(-b+sqrt(d))/(2*a);           writeln(x1);           writeln(x2)       end end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

var

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.