program p1;
label 1,2;
var x,pop,i:integer;
    yg:boolean;
    prod:char;
 
begin
2:x:=1+random(9); yg:=false;
 
writeln('PK zadymal cislo ot 1 do 10...');
writeln('a ty poprobyi otgadati s 5 popytkami...');
for i:=1 to 5 do  begin
writeln;
write('Popitka ',i,' = '); readln(pop);
if pop<>x then writeln('NEverno') else begin yg:=true;  goto 1; end;
end;
writeln('POPITKI zakoncilisi. Vy proigrali ((');
1: if yg then begin writeln;writeln('Vy ugadali! Pozdravlyayu!'); end;
 
write('Vi xotite prodoljiti? (y/n) ');  readln(prod);
if prod='y' then goto 2;
readln;
end.