цилкл с умовою

var n,n1,c:byte;
BEGIN
clrscr;
textbackground(16);
textcolor(14);
writeln('gra');
writeln('vgadai chislo');
writeln('v tebe e 3 sprobi');
writeln(' i tak gra poshalas');
randomize;
n:=random(9);
repeat
readln(n1);
if n<>n1 then
begin
c:=0;
if n>n1 then writeln('menhe')
else writeln('bilhe');
end;
until((n=n1)or(0=3));
if n=n1 then writeln ('vgadav')
else writeln('baran');
writeln('molodec-shislo',n);
writeln('a xotya net ti prograv baran');

END.


program baguvix;

uses crt;
var n,k:integer;
BEGIN
n:=5000; k:=0;
repeat
n:=n+1;
if n mod 39=0 then
begin
write(n,'   ');k:=k+1;
end;
until k=5;
END.






program opopopop;

uses crt;
var n,k:integer;
BEGIN
n:=8000; k:=0;
repeat
n:=n+1;
if n mod 47=0 then
begin
write(n,' '); k:=k+1;
end;
until k=5;
END.




program ipoipo;

uses crt;
var n,k:integer;
BEGIN
n:=100; k:=0;
repeat
n:=n+1;
if n mod 19=0 then
begin
write(n,' '); k:=k+1;
end;
until k=15;
END.



program tdfyshfds;

uses crt;
var n,k:integer;
BEGIN
n:=500; k:=0;
repeat
n:=n+1;
if n mod 13=0 then
if n mod 17=0 then
begin
write(n,' ');k:=k+1;
end;
until k=20;

END.

program tegfd;

uses crt;
var n,k:word;
BEGIN
n:=10000; k:=0;
repeat
n:=n-1;
if n mod 218=0 then
begin
write(n,' '); k:=k+1;
end;
until k=3;
END.



program rerfe;

uses crt;
var n,x:longint; c,c1,k:byte;
BEGIN
read(n); x:=n;
while n>9 do
n:=n div 10;
c1:=n;
k:=0;
repeat
c:=x mod 10;
if c=c1 then k:=k+1;
x:=x div 10;
until x=0;
writeln(k);
END.






var n,n1,c:byte;
BEGIN
clrscr;
textbackground(16);
textcolor(14);
writeln('gra');
writeln('vgadai chislo');
writeln('v tebe e 3 sprobi');
writeln(' i tak gra poshalas');
randomize;
n:=random(9);
repeat
readln(n1);
if n<>n1 then
begin
c:=0;
if n>n1 then writeln('menhe')
else writeln('bilhe');
end;
until((n=n1)or(0=3));
if n=n1 then writeln ('vgadav')
else writeln('baran');
writeln('molodec-shislo',n);
writeln('a xotya net ti prograv baran');

END.