Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 14th, 2012  |  syntax: Pascal  |  size: 0.22 KB  |  hits: 21  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program Circle;
  2.  
  3. var
  4. x, y :real;
  5. begin
  6. write('enter x:');
  7. readln(x);
  8. write('enter y:');
  9. readln(y);
  10. if (x*x + y*y = 4) then
  11.         begin
  12.         writeln('On circle');
  13.         end
  14.  else
  15.         begin
  16.         writeln('Not on circle.');
  17.         end
  18. end.
create a new version of this paste RAW Paste Data