Instrukcja warunkowa If ... Then

Instrukcja warunkowa IF...THEN ma postać:

IF warunek (wyrażenie logiczne)
THEN instrukcja_1
ELSE instrukcja_2

Jeśli warunek jest spełniony, wówczas następuje wykonanie instrukcji_1, w przeciwnym wypadku
zostanie wykonana instrukcja_2.

Przykład

PROGRAM Trójkąt_prostokątny;
Uses Crt;
Var
a,b,c,sin,cos,tg:real; {Deklarowanie zmiennych}
BEGIN
Clrscr;
Write('Podaj bok a:');
Readln(a);
Write('Podaj bok b:');
Readln(b);
Write('Podaj bok c:');
Readln(c);
If (a*a+b*b)=(c*c) then
Begin
sin:=b/c; {Instrukcja przypisania służy do przypisania zmiennym pewnej wartości}
cos:=a/c;
tg:=b/a;
Writeln;
Writeln('Boki tworzą trójkąt prostokątny');
Writeln;
Writeln('Sinus kąta alfa = ',sin:6:4);
Writeln('Cosinus kąta alfa = ',cos:6:4);
Writeln('Tangens kąta alfa = ',tg:6:4);
END
ELSE
Writeln('Boki nie tworzą trójkąta prostokątnego');
Readkey;
End.

Główna