uses crt; { Biblioteka pozwalajaca na wyswietlanie tekstow na ekranie zawiera np. funkcje: WriteLn, Write }

var wybor:char; { Zmienna do ktorej wpisywany jest wybor uzytkownika z glownego menu }

procedure nwd();
    var a, b, n: byte; { zmienne potrzebne do obliczen
                      a - pierwsza liczba
                      b - druga liczba
                      n - znaleziony najwiekszy wspolny dzielnik
                    }
begin
    writeln('--------- Najwiekszy Wspolny Dzielnik ---------');
    write('Podaj pierwsza liczbe: ');
    readln(a);
    write('Podaj druga liczbe: ');
    readln(b);
    n := a; { Ustaw NWD jako pierwsza podana liczba }
    { Zmniejszaj NWD o 1 dopoki reszta z dzielenia n przez a oraz n przez b nie bedzie rowna 0 }
    while (a mod n <> 0) or (b mod n <> 0) do n := n - 1;
    writeln('Najwiekszy wspolny dzielnik liczb ', a, ' i ', b, ' to ', n:0);
    writeln('Nacisnij cokolwiek.');
    readln;
end;

procedure nww();
    var a,b,n:word; { zmienne potrzebne do obliczen
                      a - pierwsza liczba
                      b - druga liczba
                      n - znaleziona najmniejsza wspolna wielokrotnosc
                    }
begin
    writeln('--------- Najmniejsza Wspolna Wielokrotnosc ---------');
    write('Podaj pierwsza liczbe: ');
    readln(a);
    write('Podaj druga liczbe: ');
    readln(b);
    n := a; { Najpierw ustaw NWW jako pierwsza podana liczbe }
    { Zwiekszaj NWW o 1 dopoki reszta z dzielenia n przez a oraz n przez b nie bedzie rowna 0 }
    while (n mod a <> 0) or (n mod b <> 0) do n := n + 1;
    writeln('Najmniejsza wspolna wielokrotnosc liczb ', a, ' i ', b, ' to ', n:0);
    writeln('Nacisnij cokolwiek.');
    readln;
end;

begin

    repeat
    begin
        { Wyswietl menu glowne i zapytaj uzytkownika co chce wykonac }
        writeln();
        writeln('Wybierz operacje:');
        writeln();
        writeln(' n) Najwiekszy Wspolny Dzielnik (NWD)');
        writeln(' w) Najmniejsza Wspolna Wielokrotnosc (NWW)');
        writeln(' q) zakoncz');
        writeln();
        write('Wybor: ');
        wybor := ReadKey(); { Zapisanie litery wybranej przez uzytkownika do zmiennej }
        writeln();
        { Uruchomienie procedury zaleznej powyzszego od wyboru }
        if (wybor = 'n') then nwd(); { Uruchomienie procedury liczenia NWD }
        if (wybor = 'w') then nww(); { Uruchomienie procedury liczenia NWW }
    end
    until (wybor = 'q'); { Wyswietlaj powyzszy tekst i pytaj o wybor dopoki uzytkownik nie wcisnie "q" }
                         { q - wyjscie z programu }
end.