Ввод input txt вывод output txt. While not eof f do в паскале. assign input в паскале. while not eof паскаль. var x,s,a :integer.