Надо линию провести до точки Б, задев другие вот так например:направо(50)вперёд(20)​

В 5 строчке надо было написать 'then', а написано 'thn'

В 7 строчке 'else' должно быть, а написано 'ele'

Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.

Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)

var a,b,c,D,x1,x2:real;

begin

writeln('введите a,b,c');

readln(a,b,c);

if a=0 then if b=0 then if c=0 then writeln('x любое')

else writeln('нет решений')

else begin

x1:=c/b;

writeln('x=',x1:12:6);

end;

else begin

d:=b-4ac;

if d>0 then begin

x1:=(-b-sqrt(D))/(2a);

x2:=(-b+sqrt(D))/(2a);

writeln('x1=',x1:12:6);

writeln('x2=',x2:12:6);

end;

else if D=0 then begin

x1:=-b/(2a);

writeln('x=',x1:12:6);

end;

else writeln('нет решений' );

end;

readln;

end.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.