1. Rozpocznij algorytm 2. Wprowadź wartość współczynnika a 3. Wprowadź wartość współczynnika b 4. Jeśli a=0, to jeśli b=0, to wyprowadź: "nieskończenie wiele rozwiązań" w przeciwnym razie wyprowadź: "równania sprzeczne" w przeciwnym razie: oblicz: x:=b/a, wyprowadź x 5. Zakończ algortym  

  var t:integer; begin write('Podaj rok '); readln(x); t:=x div 1000; case t of 1:write('M'); 2:write('MM'); 3:write('MMM'); end;  

  k:=5; iloczyn:=1; for n:=10 downto k do iloczyn:=iloczyn*n;