BEGINs1:=1$s2:=2endif=(s1,s2)thenq1:=Felsebegins3:=0;whilen(=(s3,s2)v=(s3,s1))dos3:=+(s3,1)od;if=(s3,s1)thenq1:=Telseq1:=Ffiendfi(q1)?