Program j56; var a, b: integer; begin write('введите 2 числа: '); readln(a, b); if (a> b) then if (a mod b=0) then writeln('ваше первое число кратно второму.'); writeln('частное - ', a div b, '.') 10. else writeln('ваше первое число не кратно второму.'); writeln('частное - ', a div b, '.'); writeln('остаток - ', a mod b, '.') else if (b mod a=0) then writeln('ваше первое число кратно второму.'); writeln('частное - ', b div a, '.') else writeln('ваше первое число не кратно второму.'); writeln('частное - ', b div a, '.'); writeln('остаток - ', b mod a, '.'); end. мне пишут встречено 'else', а ожидалось '; ' ставлю ; , но встречено 'else', а ожидался оператор строка 10.
7. if a mod b = 0 then begin
8. writeln('Ваше первое число кратно второму.');
9.writeln('Частное - ', a div b, '.');
10.end
11. else ...
Объяснение: