program legnko c Foggarasi Szilvia, meteorol˘gus szak, II.‚vf. integer a integer b c a ‚s b a k‚t sz m integer x integer y c x ‚s y egyez‚se adja majd a lko-t real c c c=1, ha Łjabb sz mp rt akarok mondani write(*,70) 70 format('K‚t sz m k”z”s oszt˘j t tudom megkeresni.') 10 continue write(*,71) 71 format('Mondj egy pozitĄv eg‚sz sz mot!') read(*,72)a 72 format(i10.0) if(a.lt.1)goto 10 11 continue write(*,73) 73 format('Mondj egy m sik pozitĄv eg‚sz sz mot!') read(*,74)b 74 format(i10.0) if(b.lt.1)goto 11 c S Z ľ M O L ľ S R  S Z x=a y=b 13 continue if(.not.(x.ne.y))goto 14 if(x.lt.y)goto 12 c x > y x=x-y goto 13 12 continue c y > x y=y-x goto 13 14 continue c x = y write(*,75)x 75 format('A legnagyobb k”z”s oszt˘:',i10.0) c elk”sz”n‹ write(*,76) 76 format('Örj be egy egyest, ha folytatni szeretn‚d,',/, x' m s sz mot, ha nem!') read(*,77)c 77 format(f10.0) if(c.eq.1) goto 10 continue write(*,78) 78 format('P p !') end