edytora Notepad++ (dla standardu CP852 używa on oznaczenia OEM-852).
Najprostszy program wypisujący tekst begin writeln('Hello World'); end.
Program ustalenia –tego wyrazu ciągu Program oblicza –ty wyraz ciągu Fibonacciego. program fibonacci; var i, liczba: word; a, b, c: longint; begin writeln('Podaj, którą liczbę z ciągu Fibonacciego chcesz zobaczyć: '); readln(liczba); a := 1; b := 1; if liczba <= 2 then writeln('Wynik: ', a) else begin for i := 3 to liczba do begin c := a+b; a := b; b := c; end; writeln('Wynik: ', c); end; end.
Podprogram obliczający liczbę w ciągu Fibonacciego Podprogram ustala liczbę w ciągu Fibonacciego metodą rekurencyjną. function fibonacci(nr: integer): integer; begin if (nr = 1) or (nr = 2) then fibonacci := 1 else fibonacci := fibonacci(nr-1) + fibonacci(nr-2); end;
Program wyliczenia miejsc zerowych funkcji kwadratowej program funkcja; var delta , x1 , x2: real; a, b, c: real; begin writeln('Podaj współczynniki a, b, c trójmianu kwadratowego: '); readln(a, b, c); if a = 0 then writeln('TO NIE JEST FUNKCJA KWADRATOWA') else begin delta := (b * b) - (4 * a * c); writeln('Delta = ', delta); if delta < 0 then writeln('BRAK MIEJSC ZEROWYCH FUNKCJI !