Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  troll
Language: PASCAL
Code:
program drEvilsProgramm;
Uses Math;
var
  x: integer;
  y: real;
begin
  randomize();
  x:=2+random(10);
  y:=0;
  writeln('cunt, Sie erraten niemals die Zahl x bis ich die Weltherrschaft an mich gerissen habe');
  while x-y<>0 do
    begin
    if int(y)-x>0 then
      writeln('Ihr Tipp war ',y,' das ist aber zu klein!')
    else
      writeln('Ihr Tipp war ',y,' das ist aber zu gross!');
    writeln('Die Welt steht am Abgrund, was ist die Zahl. Wurzel von ',x,'?');
    readln(y);
    end;
  writeln('Dr. Evils Plaene sind wieder mal durchkreuzt worden!');
readln(y);
end.
Comments: