p:=0; r:=0;
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 7 do
begin
s:=s+1;
r:=r+1;
end;
p:=p+1;
end;