Dodanie euclid1.f euclid1.pas

euclid1.f

@@ -0,0 +1,15 @@
+      PROGRAM EUCLID1
+c     Algorytm Euklidesa w jezyku Fortran 77
+
+      WRITE (*,*) 'Podaj dwie liczby calkowite: '
+      READ (*,*) N, M
+
+      DO WHILE ( N .NE. M ) 
+         IF ( N .GT. M ) THEN 
+            N = N - M
+         ELSE
+            M = M - N
+         ENDIF
+      ENDDO
+      WRITE (*,*) 'NWD=', N
+      END

euclid1.pas

@@ -0,0 +1,16 @@
+program NWD(input,output);
+{ Algorytm Euklidesa. }
+var
+   A, B : Integer;
+begin
+   Writeln('Podaj dwie liczby calkowite: ');
+   Readln(a,b);
+
+   while a <> b do
+   begin
+      if a > b then a := a - b
+      else b := b - a;
+   end;
+   Writeln('NWD = ', a);
+end.
+