Не могу понять, в чем ошибка???File not found

[VIK_aka_TOR]

var
  a,b,n,i,c,d,min,imin:integer;
  input, output : text;
  begin
  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  
  read(input,n,a,b);
if(a<=100)and(a>=1)and(n<=100)and(n>=1)and(b>=1)and(b<=100) then
imin := 0;
min :=100000;
for i:=1 to n do 
begin
readln(input,c,d);
if ((c>=1) and (c<=100) and (d>=1) and (d>=1)) then
if (a*c+b*d<min) then
begin
imin :=i;
min:=a*c+b*d;
end;
end;
rewrite(output);
writeln(output,imin);
close(input);
close(output);
end.

в любом случае было слегка напутано с b и d у тебя изначально...

[semechKO]

ок. прошу проверить кого то, так как нет возможности установить щас новый паскаль, компьютер не мой)если файлы находит и выдает верное число в оутпут, то проблема решена.

[VIK_aka_TOR]

вот тебе exe... тестируй контрольными значениями своими...

[semechKO]

ехе даже не открылся.

[VIK_aka_TOR]

ну он быстро работает... )
помести его в место с файликами и запускай... после чего проверяй... редактируй входной файл... в котором результат...

[semechKO]

да, работает.тоеть запилиный код годен, да?

[semechKO]

еще один вопрос в этой теме, пытался ту же прогу делать с оператором assert вместо if , и написал , что неизвестный оператор. Это из за версии паскаля?

[VIK_aka_TOR]

вполне возможно... поюзай руководство к своему паскалю... если стандатно не воспринимает вероятнее всего в таком случае нужно бибилиотеки какие то подключать...

[semechKO]

ясно. спс за помощь. тема закрыта, помогите кто нибудь теперь данилиё113 снизу)хд