A:=1
repeat
writeln(a)
a:=a+1
until a<5
end.

Var a,,b :integer;
begin
write(‘wprowadz liczbe’);
readln(a,b);
if a>b then writeln(‘wieksza’,a);
else writeln(‘wieksza’,b);

Var cyfra:integer;
begin
write(‘wprowadz liczbe’);
readln(cyfra);
case cyfra of
1: writeln(‘*’);
2:writeln(‘**’);
end;

Licznik:=1;
while licznik<10 do
begin
writel(‘ilosc powtorzen’,licznik);
licznik:=licznik+1
end;

Typ wyliczeniowy przyklad
var dzis:dzien;
Begin
dzis:=dzien(1);
dzis:=wtorek;
if dzis+wtorek then writeln(‘wybrano wtorek’);
end.

typ znakowy
var a:char;b:widechar:
begin
a:=chr(65);
a:=#65;
a:=’a’:

typ okrojony
var a:array[cyfra] of cyfra;

typ zbiorowy
+,- elementow
var
a,b,b:set of byte;
begin
a:=[‘a’,’b’,’c’];
a:=b+c-[9,14..13];
c:=a-[0];
sprawdzanie czy w zbiorze znajduje
sie dany element za pomoca ‘in’
var
availchars:set of char;
x;char;
Begin
if x in availchars then dosomething;
Sprawdzanie czy dany zbior zawiera w
innym zbiorze za pomoca’<=’:
var
x,y:set of byte;
begin
x:=[17..41];
y:=[5..100];
if not(x<=y)then showerror;