Pętla if

Pętla if jest pętlą wyboru. Wersja z gałęzią Tak:

program P01;

var x:real;
begin
  writeln('Podaj liczbe');
  readln(x);
  if x<>0 then
  begin
    writeln('Liczba jest rozna od zera');
  end;
  readln;
end.

Wersja z gałęzią Tak i Nie":

program P01;

var x:real;
begin
   writeln('Podaj liczbe:');
   readln(x);
   if x < 0 then
   begin
     writeln('Liczba jest ujemna');
   end
   else
   begin
     writeln('Liczba nie jest ujemna');
   end;
   readln;
end.

do góry