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

Объяснение: