препод дал задачу:
дано два числа a и b.менньше 1000. надо найти их сумму.но использую файловый ввод\вывод.

var
a,b:integer;
begin 
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(a,b);
write(a+b);
close(input);
close(output);
end.

Для началы было бы неплохо прочитать правила форума
В следующий раз пользуйся тегами

James_Bond, вопрос на засыпку:
ты уверен, что пользоваться Read (а не ReadLn) - это хороший стиль?

обьясни??? в этой задаче все корректно. в данном случае мой ответ ДА.