fork download

copy

program ideone(input, output);
type
num = 0..5;
stinfo = record
	name, stid : char;
	math : integer;
	eng : integer;
	soc : integer;
	total : integer;
	end;
 
var
st : stinfo;
pp : array[num] of record;
 
function student() : record
begin
	read(st.name, st.stid);
	read(st.math, st.eng, st.soc);
	st.total := st.math + st.eng + st.soc;
	return st;
end;
 
begin
	while(not EOF) and (i < num)
	begin
		pp[i] := stdent();
		i := i=1;
	end;
 
end.
 

prog.pas:14: error: syntax error before `;'
prog.pas: In main program:
prog.pas:25: error: undeclared identifier `i' (first use in this routine)
prog.pas:25: error:  (Each undeclared identifier is reported only once
prog.pas:25: error:  for each routine it appears in.)
prog.pas:25: error: variable access expected -- type name given
prog.pas:26: error: syntax error before `begin'

Standard output is empty