fork download

copy

var a,i,b,s:longint;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
while not(eof(input)) do
begin
read(s);
for i:=1 to length(s) do
if s[i]='!' then
n:=n+1;
writeln(n);
n:=0;
end;
end.

prog.pas:1: warning: missing program header
prog.pas: In main program:
prog.pas:10: error: argument 1 to `Length' must be a string or char
prog.pas:11: error: subscripted object is not an array or string
prog.pas:12: error: undeclared identifier `n' (first use in this routine)
prog.pas:12: error:  (Each undeclared identifier is reported only once
prog.pas:12: error:  for each routine it appears in.)

Standard output is empty