ошибка

[Y4ilka.net]

господа программа работает некорректно=( как исправить мозг не доходит!


uses
SysUtils;

var i,j,k,n,m,Max,Maxc:integer;
begin
write('vvedi na4alo otrezka n= '); readln(n);
write('vvedi konec otrezka m= '); readln(m);
k:=1;
Max:=2;
For i:=n to m do
for j:=2 to i do
begin
if (i mod j=0) then k:=k+1;
if k>Max then
begin
Max:=K;
Maxc:=i;
end;
end;
writeln('max 4islo delitelei ',Max:1,' ', 'y ',Maxc:1);
readln;


на отрезке [n,m] найти натуральное число имеющиее наибольшее число делителей=(

[alex_fcsm]

var i,j,k,n,m,Max,Maxc:integer;
begin
write('vvedi na4alo otrezka n= '); readln(n);
write('vvedi konec otrezka m= '); readln(m);
k:=1;
Max:=0;
For i:=n to m do
begin
for j:=2 to i do
if (i mod j=0) then k:=k+1;
if k>Max then
begin
Max:=K;
Maxc:=i;
end;
k:=1;
end;
writeln('max 4islo delitelei ',Max:1,' ', 'y ',Maxc:1);
readln;
end.

[Sm1Le]

writeln('max 4islo delitelei ',Max:1,' ', 'y ',Maxc:1);

":1"-а это зачем ?

[Y4ilka.net]

ещё раз огромное и необьятное спасибо!=)

[Y4ilka.net]

Сообщение от Sm1Le

writeln('max 4islo delitelei ',Max:1,' ', 'y ',Maxc:1);

":1"-а это зачем ?

это издержки моего производства