Program suma; 
Uses crtl 
Var a,b,c:integer; 
D:real; 
Begin 
Clrscr; 
Writeln(`podaj A'); readln(A); 
Writeln(`Podaj B'); readln(B); 
D:=0; 
For A:=A to B do 
Begin 
C:=a mod 2; 
If c:=0 then 
Begin 
D:=d+a; 
Write(`a', a); 
End; 
Write(`suma', d:16:0); 
Readln; 
End. 

Połowa trójkąta z gwiazdek: 
For a:=1 to 5 do 
Begin 
For b:=1 to a do 
Write(`*'); 
Writeln; 
End; 

Kwadrat w którym po przekątnej jest A: 
For c:=1 to 5 do 
Begin 
For a:=1 to 5 do 
If a=c then write(`A'); 
Else write(`*'); 
Writeln; 
End; 

Prostokąt w którym 2 kolumna ma A: 
For c:=1 to 3 do 
Begin 
For a:=1 to 5 do 
If a=2 then write(`A'); 
Else write(`*'); 
Writeln; 
End; 

Program choinka; 
Uses crt; 
Var b,a,x :integer; 
Begin 
Clrscr; 
For c:=1 to 3 do 
For a:=c+0 to 13 do 
Begin 
Write(`*', 40-a); 
For b:=3 to 2*a do 
Write(`*'); 
Writeln; 
End; 
Readkey; 
End. 

Program cos; 
Uses crt; 
Var b:integer 
Begin 
Clrscrl 
For b:=1 to 10 do 
Write(`*'); 
B:=1; 
Repeat 
B:=b+1; 
Write(`*'); 
Until b>10 
B:=1; 
While b<11 do 
Begin 
B:=b+1; 
Write(`*'); 
End; 
Readkey; 
End. 

Program pole_kwadratu; 
Uses crtl 
Var b,a,x:integer; 
C:char; 
Begin 
Clrscr; 
Writeln; 
B:=1; 
Repeat 
Writeln(`podaje bok kwadratu'); 
Readln(a); 
B:=sqr(a); 
Write(`Pole', b:3); 
Writeln(`aby zakonczyc wcisnij ESC'); 
C:readkey; 
Writeln(#27); 
Until c=#27; 
Readkey; 
End. 

Writeln(`program wypisuje l.naturalne mniejsze od 100 I podzielne przez 11'); 
For b:=1 to 100 do 
Begin 
C:=b mod 11; 
If c=0 then writeln(b); 
End;

Program procedure; 
Uses crt; 
Var a,b,x,y, save :integer; 
Procedure zamiana(a,b:integer) ; lub (var a,b:integer)-zamiana ostatniej linijkii 
Begin 
Save:=a; 
A:=b; 
B:=save; 
Writeln(`A=', Y:5, `B=', X:5); 
End; 
Begin {program główny}; 
Clrscr; 
X:=75; Y:=256; 
Writeln(`X=', x:5, `Y=', Y:5); 
Zamiana(X,Y); 
Writeln(`X=', x:5, `Y=', Y:5); 
Readkey; 
End. 

Var dni, a:integer; 
Begin 
Clrscr; 
Writeln(`Program podaje ile dni ma wpisany miesiac'); 
Writeln(`wpisz, który miesiąc chcesz rozpoznac'); 
Readln(a); 
Case a of 
2: dni:=28; 
1,3,5,7,8,10,12: dni:=31; 
2,4,6,9,11: dni:=30; 
Else write(`blad'); 
End; 
Write(`miesiac ma:', dni, `dni'); 
Readkey; 
End. 

Var a,n: integer; 
Begin 
Clrscr; 
Writeln(`program oblicza wartosc x do potegi n'); 
Writeln(`wpisz jaka wartość ma x'); 
Readln; 
Writeln(`wpisz do której potęgi chcesz podnieść x'); 
Readln(n); 
A:=1; 
For n:=1 to n do 
A:=a*x; 
Writeln(`wynik:', a); 
Readkey; 
End. 

Program silnia; 
Uses crt; 
Var a,n: longint; 
Begin 
Clrscr; 
Writeln(`program oblicza wartosc silni'); 
Writeln(`wpisz jaka wartość ma n'); 
Readln(n); 
A:=1; 
For n:=1 to n do 
A:=a*n; 
Writeln(`wynik:', a); 
Readkey; 
End. 

Odwrócony trójkąt: 
For i:=1 to liczba do 
Begin 
For j:=1 to liczba - i do 
Write(` `); 
For j:=1 to I do 
Write(`*'); 
Writeln; 
End; 
For i:=1 to liczba do 
Begin 
For j:=1 to liczba do 
If j<=(liczba - i) then write(` `); 
Else write(`*'); 
Writeln; 
End; 

Begin 
Write(`program wypisuje komunikat o porze roku'); 
Write(`podaj numer miesiaca'); 
Read(a); 
Case a of 
1 , 2, 12: write(`Jest zima'); 
3,4,5: write(`Jest wiosna'); 
6,7,8: write(`jest lato'); 
9,10,11: write(`jest jesien'); 
Else write(` nie ma takiego miesiaca'); 
End; 
Readkey; 
End. 

Program klawiatura; 
Uses crt; 
Var a:char; 
Begin 
Clrscr; 
Writeln(` program wpisuje komunikat o znku wcisnietym na klawiature'); 
Writeln(`wcisnij znak, tory chcesz rozpoznac'); 
Readln(a); 
Case a of; 
`0'..'9': write(`cyfra'); 
`a'..'z':write(`mala literka'); 
`A'..'Z': write(`duza literka'); 
Else write(`symbol'); 
End;

---