Instrukcja warunkowa
  Obliczenie wzoru na prędkość w ruchu jednostajnym prostoliniowym
v=s/t, gdzie t>0		  















 		 Program predkosc;
  uses crt;
  var
  v,s,t:real;
begin
  clrscr;
  writeln('Program oblicza prędkość w ruchu jednostajnym prostoliniowym');
  write('s= ');
  readln(s);
  write('t= ');
  readln(t);
  if t<0 then
     begin
     write('czas jest wartością dodatnią');
     readln;
     readln;
     end;             {po wyrażeniu "end" w pętli nie musimy stawiać ";" }
  else
begin
     v:=s/t;        {operacja przypisania działania s/t zmiennej v}
     writeln('Prędkość v=',v);
     readln;
     readln;
     end;             {po wyrażeniu "end" w pętli nie musimy stawiać ";" }
end.
 		  
  Obliczenie dowolnego wzoru:
a=b2+c/d,  d>0		  
  Program obliczenie;
  uses crt;
  var
  a,b,c,d:real;
begin
  clrscr;
  writeln('Program podany wzór');
  write('b= ');
  readln(b);
  write('c= ');
  readln(c);
  write('d= ,);
  readln(d);
  if d<0 then  (*)
     begin
     write('d jest wartością większą od zera');
     readln;
     readln;
     end;
  else
begin
     writeln('zmienna a=',(b*b+c)/d);   {lub: writeln('zmienna a=',sqr(b)+c/d)}
     readln;
     readln;
     end;
end.		  
  *(skoro w założeniu jest podane, że d>0, to musimy sprawdzić, co ma zrobić program w przypadku, gdy d<0)