If then else bloğu uses crt;
var
atring;
begin
writeln('ifade giriniz');readln(a);
if a='sadettin' then write(' merhaba ',a) else write ('hosgeldiniz',a);
readln;
end.

if a='sadettin' (sonuc) then write(' merhaba ',a) else (sonuc) write ('hosgeldiniz',a) ;

ifadesi için Bir olayın olma olasığı

sonuc sonuc
0 1
1 0


if sonuc=0 [a=>ahmet] then birinci sonuç yorumlanmaz else sonuc=1 ikinci sonuç yorumlanır;

if sonuc=1 [a=>sadettin] then birinci sonuç yorumlanır else sonuc=0 ikinci sonuç yorumlanmaz;