Przykład instrukcji waunkowej:

IF wyrażenie_logiczne THEN instrukcja;

IF wyrażenie_logiczne THEN
    BEGIN
        instrukcja_1;
        instrukcja_2;
        ...
        instrukcja_n;
    END;

Przykład instrukcji warunkowej, uwzględnienie braku spełnienia warunku:

IF wyrażenie_logiczne THEN instrukcja_1
                      ELSE instrukcja_2;

IF wyrażenie_logiczne THEN
    BEGIN
        ciag_instrukcji_1
    END
ELSE
    BEGIN
        ciag_instrukcji_2
    END;

Instrukcja wyboru z zakresu:

CASE wyróżnik OF
    zakres_1: instrukcja_1;
    zakres_2: instrukcja_2;
    ...
    zakres_n: instrukcja_n;
         else instrukcja_M;
END;

program dzialania2;

uses crt;

var
	a, b, wynik : real;
	dzialanie : char;
begin
	clrscr;
	write('Podaj 1. liczbe: ');
	readln(a);
	write('Podaj 2. liczbe: ');
	readln(b);
	write('Wybierz dzialanie: +, -, *, /');

	dzialanie:=readkey;
	writeln;

	CASE dzialanie OF
		'+': wynik:=a+b;
		'-': wynik:=a-b;
		'*': begin
			if ((a<>0) and (b<>0)) then
				wynik:=a*b
			else
				wynik:=0;
		end;
		'/': begin
			if((a<>0) and (b<>0)) then
				wynik:=a/b
			else
				wynik:=0;
		end;
	END;

	write(a:0:0, dzialanie, b:0:0, ' = ', wynik:2:2);
	delay(2000);
end.