fork download

copy

program sndlast (input,output);
    var a : array [1..9] of char;
        i : integer
begin
    i:=0;
    while not eoln do
      begin
        i:=i+1;
        read(a[i])
      end;
    readln;
    writeln(a[i-1]);
end.

prog.pas:3: error: variable access expected -- type name given
prog.pas:4: error: syntax error before `begin'
prog.pas:6: error: syntax error before `while'
prog.pas: In main program:
prog.pas:8: error: undeclared identifier `i' (first use in this routine)
prog.pas:8: error:  (Each undeclared identifier is reported only once
prog.pas:8: error:  for each routine it appears in.)
prog.pas:10: error: syntax error before `;'
prog.pas:10: warning: missing `.' at the end of program/unit/module

Standard output is empty