Delphi If/else funkcija

I u programiranju kao i u vecini stvari u svetu oko nas sigurno cete naici na pitanje sta ako? Sta ako nije ovako nego onako? Sta ako to nije jednako tome nego necemu drugom? Tu nailazimo na primenu IF/ELSE funkcije.
Uzecemo za primer situaciju da treba da napravimo program koji proverava da li je broj paran ili nije i da li je veci od nule.
Kao sto nam je vec poznato iz matematike broj je paran kad je deljiv sa dva. Sada cemo to prevesti u kod:
Begin
a:=strtoint(edit1.text);
if (a>0) and (a mod 2 = 0) then edit2.text:='broj je paran i veci od nule'
else edit2.text:='broj nije paran';
end;
end.