program n_65;
var c: char;
begin
for c:='0' to '9' do writeln (c,'', on (c));
end.
встречено 'n' а ожидалось выражение