var k,s,c:integer; begin randomize; c:=random(10); s:=0; while s<>5 do begin writeln ('enter'); readln (k); if k=c then writeln ('ugadal') else writeln ('enter'); readln (k); inc(s); end; readln end.
Яндекс