program o4eslojno;
var
i: integer;
s: integer;
max: integer;
yaeblan: integer;
answer: integer;
arr: array [1..5] of integer;
begin
max:= 2;
answer:= 0;
yaeblan:= 0;
for i:=1 to 5 do
begin
readln(arr[i]);
end;
for i:=1 to 5 do
begin
s:=arr[i];
while (s > 0) do
begin
if ((arr[i] mod s) = 0) then
begin
yaeblan:= yaeblan + 1;
end;
s:= s-1;
end;
if (yaeblan > max) then
begin
max:= yaeblan;
answer:= arr[i];
end;
yaeblan:= 0;
end;
if (answer = 0) then
begin
writeln ('у всех одинаковые')
end
else
begin
writeln ('ответ: ',answer);
end;
end.
English
Russian