Гра "Вгадай число"

program vgadai_chislo;

var x,a: integer;

begin

randomize;

a:=random(50);

while x<>a do

begin

writeln ('vvedit chislo');

readln (x);

if (x<a) then

writeln ('vvedit bilshe chislo')

else

writeln ('vvedit menshe chislo');

end;

writeln ('chislo vgadane');

readln

end.