Kód: Vybrať všetko
program uloha_podmienky;
var
a,b:integer;
begin
write('Zadajte hodnotu prveho cisla');
readln(a);
write('Zadajte hodnotu druheho cisla');
readln(b);
if a>b then writenl('Vecsje je prve cislo: ',a)
else if a=b writenl('Cisla su si rovnake')
else writenl('Vecsie je druhe cislo: ',b);
end.