Тут все как-то удивительно просто. 650:130=5(б)
17 mod 3 =2
17 div 3 = 5
23 mod 10=3
23 div 10 =2
9 mod 2=1
9 div 2=4
33 mod 4=1
33 div 4= 8
29 mod 7 =1
29 div 7 =4
A div B - частное от деления A на B с остатком
A mod B - остаток от деления A на B с остатком!
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
Код картинкой и результат его выполнения во вложениях.