Var i,C,B:integer;A:Array[1..5]of integer;
Begin
C:=1;B:=9;
for i:=1 to 4 do
A[i]:=random(b-c+1)+c;
Write('Билет-');
For i:=1 to 4 do
Write(A[i]);
If A[1]+A[2]=A[3]+A[4] then Begin Writeln; writeln('Билет счастливый')end else Begin Writeln; writeln('Билет не счастливый');end;
end.
Var i,C,B:integer;A:Array[1..5]of integer;
Begin
C:=1;B:=9;
for i:=1 to 4 do
A[i]:=random(b-c+1)+c;
Write('Билет-');
For i:=1 to 4 do
Write(A[i]);
If A[1]+A[2]=A[3]+A[4] then Begin Writeln; writeln('Билет счастливый')end else Begin Writeln; writeln('Билет не счастливый');end;
end.