Практическая работа по информатике 7 класс создания программ содержащих команду ветвления:
Задано два числа.Проверить, является ли больше чисел кратным меньшему числу.Если так, то вывести частное от деления большего на меньшее,если нет-сообщение о не кратность чисел
var a, b, tmp: integer;
begin
a := 15;
b := 5;
if a < b then
begin
tmp := a;
a := b;
b := tmp;
end;
if a mod b = 0 then
writeln(a div b)
else
writeln('Числа не кратные');
end.