fork download

copy

program gds;
var x:integer;
begin
readln(x);
for a=1 to x then 
begin
relay(200);
writeln('|');
end;
readln;
end.

prog.pas: In main program:
prog.pas:5: error: undeclared identifier `a' (first use in this routine)
prog.pas:5: error:  (Each undeclared identifier is reported only once
prog.pas:5: error:  for each routine it appears in.)
prog.pas:5: error: using `=' instead of `:=' in assignment
prog.pas:5: error: syntax error before `then'
prog.pas:5: error: missing `to' or `downto'
prog.pas:7: error: undeclared identifier `relay' (first use in this routine)
prog.pas:7: error: syntax error before `;'
prog.pas:7: error: missing `to' or `downto'
prog.pas:8: error: `for' loop bounds are of incompatible type
prog.pas:8: error: syntax error before `;'
prog.pas:8: error: missing `to' or `downto'

Standard output is empty