Question

ребята, помогите с информатикой (паскаль, задание на картинке) <3

Answer 1

var a, b:integer;

begin

read(a, b); //вводить числа через пробел

if a mod b = 0 then write(a mod b)

else write(a, ' ', a mod b)

end.