Két szám bekérése és összehasonlítása (Hasonlit.pas) program Hasonlit; uses crt; var n1,n2:integer; BEGIN write('Az elso szam='); readln(n1); Bekérjük az első számot és eltároljuk n1-ben. write('A masodik szam='); readln(n2); Bekérjük a második számot és eltároljuk n2-ben. if (n1<n2) then begin Megvizsgáljuk, hogy az első szám kisebb e a másodiknál, ha igen, akkor kiírjuk, hogy az n2 a nagyobb, egyébként pedig, hogy az n1 a nagyobb. writeln ('A masodik szam (',n2,') a nagyobb.'); end Kétirányú elágazás esetén az else előtti end-et nem zárjuk le ;-vel. else begin writeln('Az elso szam (',n1,') a nagyobb.'); end; END.