program arvamine; var number, pakutu : integer; begin number:=2; writeln('Arvutis on miski hekohaline arv. Arva, kui suur see arv on!'); readln(pakutu); if number = pakutu then writeln('Pakkusid “igesti!'); if number <> pakutu then writeln('Pakkusid valesti. Arvutis oli ', number); end.