Procedure Sample;
var i,j,k,v:integer;
begin
v:=0;
for i:=1 to 99 do
begin
if i mod 2=0then
continue;
//Pair keys for '(' and ')'
k:=Fun1( Fun2(2) + Fun3(Fun4(5)) , Fun6(i,Func4(i)) );
// pair keys for 'begin' , 'end'
for j:=1 to 99 do
begin
v:=i*j+k;
if v<50 then
continue;
if v>90 then
begin
break;
end;
end;
end;
for i:=1 to 99 do
begin
for j:=1 to 99 do
begin
if v>90 then
begin
break;
end;
end;
=> Miss a End, Here
Datee[Year][Monthes[Month]][Days[Day]]=v; // Corrent
Datee[Year][Monthes[Month]][Days[Day]=v; ==> miss a ]
Dates[Year][Monthes[Month]]Days[Day]]=v; ==> miss [
end;