Ответ:
Var i,m,n,s,t:integer;
Begin
write('Введите число m: ');readln(m);
write('Введите число n: ');readln(n);
if m > n then
t:= n else t := m;
for i := 1 to t do
begin
if ((m mod i) = 0) and ((n mod i) = 0) then
s:= s + i;
end;
writeln(s);
readln;
end.
Объяснение:
Как то так