program ideone;
const max=3;
var i:integer;
a:array[1..max] of integer;
begin
for i:=1 to max do
readln(a[i]);
for i:=1 to max
begin
a[i]:=a[i]]+1;
write(a[i],' ');
end;
(* your code goes here *)
end.
cHJvZ3JhbSBpZGVvbmU7CmNvbnN0IG1heD0zOwp2YXIgaTppbnRlZ2VyOwphOmFycmF5WzEuLm1heF0gb2YgaW50ZWdlcjsKYmVnaW4KZm9yIGk6PTEgdG8gbWF4IGRvCnJlYWRsbihhW2ldKTsKZm9yIGk6PTEgdG8gbWF4CmJlZ2luCmFbaV06PWFbaV1dKzE7CndyaXRlKGFbaV0sJyAnKTsKZW5kOwoJKCogeW91ciBjb2RlIGdvZXMgaGVyZSAqKQplbmQu
prog.pas: In main program:
prog.pas:9: error: syntax error before `begin'
prog.pas:9: error: missing `to' or `downto'
prog.pas:10: error: assignment of `for' loop counter
prog.pas:10: error: syntax error before `:='
prog.pas:10: error: missing `to' or `downto'
prog.pas:10: error: assignment of `for' loop counter
prog.pas:10: error: syntax error before `]'
prog.pas:10: error: missing `to' or `downto'
prog.pas:10: error: assignment of `for' loop counter
prog.pas:10: error: missing `to' or `downto'
prog.pas:11: error: syntax error before `,'
prog.pas:11: error: missing `to' or `downto'
prog.pas:11: error: `for' loop bounds are of incompatible type
prog.pas:11: error: missing `to' or `downto'