program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.
program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
begin
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.