Wykorzystanie etykiety program ttt; uses crt; label skok; var i: integer; begin clrscr; repeat i:=readkey; write(i); if i='+' then goto skok; until false; skok: writeln; write('Koniec programu'); repeat until keypressed; end.	Zamiana dużych znaków na małe i odwrotnie program abc; uses crt; const duze = [65..90]; var i:integer; ciag : string; begin clrscr; readln(ciag); for i:=1 to length(ciag) do begin if ord(ciag[i]) in duze then ciag[i]:=chr(ord(ciag[i])+32) else ciag[i]:=chr(ord(ciag[i])-32); write(ciag[i]); end; repeat until keypressed; clrscr; end.	Wyświetlanie znaków ASCII program ascii; uses crt; var i,j,k: integer; begin clrscr; write('Podaj zakres od '); readln(j); write('Podaj zakres do '); readln(k); for i:=j to k do writeln(i,' = ',chr(i)); repeat until keypressed; end.
Wykorzystanie funkcji READKEY program test; uses crt; var i:string; j:integer; begin for j:=1 to 10 do begin i:=readkey; writeln(chr(13)); end; end.	Test czy liczba jest rzeczywista program test; uses crt; var liczba:string; i : real; j : integer; begin clrscr; write('wprowadz ciag znakow: '); readln(liczba); val(liczba,i,j); if j=0 then write(liczba,' jest liczba rzeczywista') else write(liczba,' nie jest liczba rzeczywista'); repeat until keypressed; end.	Zadanie 1 - czy liczba jest dodatnia i parzysta program test; uses crt; var liczba:string; i : real; j : integer; begin clrscr; write('wprowadz ciag znakow: '); readln(liczba); val(liczba,i,j); if j=0 then write(liczba,' jest liczba rzeczywista') else write(liczba,' nie jest liczba rzeczywista'); repeat until keypressed; end.
Zadanie 1 wersja 2 - czy liczba jest dodatnia i parzysta program zad1_2; uses crt; var liczba:array[1..10] of integer; i,j : integer; Begin clrscr; textcolor(white); i:=1; j:=0; for i:=1 to 10 do begin write('Podaj ',i,' liczbe: '); readln(liczba[i]); clrscr; if (liczba[i]>0) and (frac(liczba[i]/2)=0) then j:=j+1; end; clrscr; write('Liczby: '); i:=1; for i:=1 to 9 do begin if (liczba[i]>0) and (frac(liczba[i]/2)=0) then textcolor(green); write(liczba[i]); textcolor(white); write(','); end; if (liczba[10]>0) and (frac(liczba[10]/2)=0) then begin textcolor(green); writeln(liczba[10]); textcolor(white); end; writeln; writeln('-----------------------------------------------'); write('Liczb dodatnich i parzystych: ',j); repeat until keypressed; end.	Zadanie 2 - czy napis jest wprowadzony dużymi literami program zad_2; uses crt; var lancuch : string; i,j : integer; begin CLRSCR; write('Wpisz ciag znakow '); read(lancuch); for i:=1 to length(lancuch) do if lancuch[i] = upcase(lancuch[i]) then j:=j+1; if j=length(lancuch) then write ('Lancuch wprowadzony duzymi literami') else write('Lancuch zawiera ',length(lancuch)-j,' malych liter'); repeat until keypressed; end.	Zadanie 3 - czy wprowadzona liczba jest rzeczywista program test; uses crt; var liczba:string; i : real; j : integer; begin clrscr; write('wprowadz ciag znakow: '); readln(liczba); val(liczba,i,j); if j=0 then write(liczba,' jest liczba rzeczywista') else write('<< ',liczba,' >> nie jest liczba rzeczywista'); repeat until keypressed; end.
Zadanie 4 - czy wprowadzony łańcuch może reprezentować datę w formacie dd-mm program zad_4; uses crt; var znak : string[5]; kod,dd,mm : integer; begin clrscr; write('wprowadz znaki: '); read(znak); val(copy(znak,1,2),dd,kod); val(copy(znak,4,2),mm,kod); if ((dd >= 1) and (dd <= 31)) and ((mm >=1) and (mm <= 12)) and (copy(znak,3,1)='-') then writeln('Ciag znakow ',znak,' moze reprezentowac date w formacie dd-mm') else writeln('Ciag znakow ',znak,' nie moze reprezentowac date w formacie dd-mm'); repeat until keypressed; end.	Zadanie 5 - czy łańcuch może reprezentować liczby rzymskie program rzymskie; uses crt; const rzymskie: SET of Char = ['I','V','X','L','C','M','i','v','x','l','c','m']; var ciag : string; l,m : integer; begin clrscr; write('Wprowadz ciag znakow: '); read(ciag); for l:=1 to length(ciag) do if ciag[l] in rzymskie then m:=m+1; if length(ciag)=m then writeln('Ciag ',ciag,' moze reprezontowac liczby rzymskie') else writeln('Ciag ',ciag,' nie moze reprezontowac liczb rzymskich'); repeat until keypressed; end.	Zadanie 8 - ile razy występuje znak w tablicy program zad_8; uses crt; var tabl : array[1..10] of integer; i,j,k,n : integer; begin clrscr; write('Podaj liczbe do sprawdzenia: '); read(n); j:=0; clrscr; for i:=1 to 10 do begin write('Wprowadz ',i,' liczbe do tablicy: '); read(k); tabl[i]:=k; if k=n then j:=j+1; clrscr; end; for i:=1 to 10 do write(tabl[i],' '); writeln; write('Liczba ',n,' wystepuje w tablicy ',j,' razy'); repeat until keypressed; end.
Dzielenie zdania na wyrazy program zd; uses crt; var tablica : array[1..100] of string[55]; pw,kw,ti,i,a : integer; zn,wyraz,zdanie : string; begin clrscr; write('Wpisz zdanie - max 100 wyrazow '); read(zdanie); zdanie:=zdanie+' '; for i:= 1 to length(zdanie) do begin if copy(zdanie,i,1) = ' ' then begin kw:=i-1; ti:=ti+1; tablica[ti]:=copy(zdanie,1,kw); zdanie:=copy(zdanie,i+1,length(zdanie)-i); i:=1; end; end; i:=1; for i:=1 to ti do writeln(tablica[i]); repeat until keypressed; end.

---