Janilabo

Untitled

Jul 8th, 2013
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.11 KB | None | 0 0
  1. var
  2.   x: Integer;
  3.  
  4. begin
  5.   x := 1;
  6.   if (x > 0) then
  7.     WriteLn('YES')
  8.   else
  9.     WriteLn('NO');
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment