Bardzo proszę o pomoc. Miałam napisać program, który sprawdzi, czy podana liczba jest liczbą pierwszą. Napisałam tak: Program liczba pierwsza; Uses Crt; Var n,licznik:integer; pierwsza:boolean; Begin ClrScr; Write ('Podaj liczbe do sprawdzenia') Readln(n); Pierwsza:=true; For licznik:=n-1 downto 2 do If n mod licznik=0 then pierwsza false If n pierwsza then Write (n,' jest liczba pierwsza'); else Write (n,' nie jest liczba pierwsza'); Readln; End.
Nie wiem gdzie jest błąd a jest. Jak wchodzę w kompilacje to pokazuje mi się błąd taki jak w tytule mojego postu. Bardzo proszę o pomoc. nie mam pojęcia co z tym zrobić. Ja nie widzę błędu, bo jestem początkująca. Bardzo początkująca.