Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Win32 for i386
Compiling //RQNOJ:UserCode\593823.pas
593823.pas(21,4) Fatal: Syntax error, ";" expected but "." found
Fatal: Compilation aborted
Error: //RQNOJ:Bin\FPC\bin\i386-win32\ppc386.exe returned an error exitcode (normal if you did not specify a source file to be compiled)
01.Program syw0020;
02.procedure tra(chengji:integer);
03.var temp:char; w,l:integer; first:boolean;
04.begin
05.
w:=0; l:=0; first:=true; read(temp);
06.
while temp<>'E' do begin
07.
if temp='W' then inc(w)
08.
else if temp='L' then inc(l);
09.
if ((w>=chengji) or (L>=chengji)) and (first=true) then
10.
begin
11.
writeln(w,':',l);
12.
w:=0;
13.
l:=0;
14.
first:=false;
15.
end;
16.end;
17.begin
18.
tra(11);
19.
writeln;
20.
tra(21);
21.end.