Pascal. Make a computer guessing program.

program zz1;
label 1; // describe the label
var i, s, n: integer; // set variables of integer type
begin
writeln (‘the computer conceived a number from 0 to 10, guess it’);
n: = random (11); // get a random number from 0 to 10 inclusive
1: read (s); // mark the string with a label and enter the number from the keyboard
if n <> s // check the condition, if the entered number is not equal to the intended one, then
then begin write (‘guessed wrong’); goto 1; end // print one answer and go to the label
else write (‘guessed’) // print another answer
end.