уторак, 22. март 2011.

1# Naredba granaja IF

program uslovIF;
//U program se unose dva broja x i y i program ispisuje koji je od njih veci 
 uses crt;
 var
    x,y:integer;

 begin
    clrscr;
    writeln('Unesite broj x');
    write('x=');
    read(x);
    writeln('Unesi broj y');
    write('y=');
    read(y);
    if (x>y) then
     begin
       writeln('x je veci');
     end
    else
     begin
       writeln('y je veci');
     end;
     readln;
     readln;

 end.

Нема коментара:

Постави коментар