Advertisement
Guest User

Untitled

a guest
Jan 18th, 2020
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. program Project4;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8. System.SysUtils;
  9. var x, i: Integer;
  10. var b: Boolean;
  11. begin
  12. try
  13. x:=0;
  14. i := 0;
  15. b := true;
  16. while True do
  17. begin
  18. if i <> 0 then
  19. x := i;
  20. ReadLn(i);
  21. if i = 0 then break;
  22. if (x <> 0) and (i >= x) then b := false;
  23. end;
  24. if b then WriteLn('Yes')
  25. else WriteLn('No');
  26. ReadLn;
  27. except
  28. on E: Exception do
  29. Writeln(E.ClassName, ': ', E.Message);
  30. end;
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement