Паскаль. составить программу для решения следующей : даны числа a, b - целые (< > 0). сократить дробь a/b. сначала найти нод этих двух чисел. затем знаменатель и числитель разделить на нод.

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var p,q: integer;   write('введите числитель и знаменатель: '); read(p,q);   var a: =abs(p);   var b: =abs(q);   while b< > 0 do begin a: =a mod b; swap(a,b) end;   p: =p div a;   q: =q div a;   writeln('результат: ',p,'/',q) end. пример введите числитель и знаменатель: 1440 16200 результат: 4/45

В 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.