// Pascal
var a, b, tmp: integer;
begin
a := 15;
b := 5;
if a < b then
tmp := a;
a := b;
b := tmp;
end;
if a mod b = 0 then
writeln(a div b)
else
writeln('Числа не кратные');
end.
// Pascal
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.