Ответы и объяснения

2014-02-12T08:25:46+00:00
Program z;
var rt,n,i,lt,g:integer;
begin
writeln('Введите номерок билета');
read(n); rt:=0; lt:=0;
for i:=1 to 3 do
begin
rt:=rt + (n mod 10);
n:= n div 10;
end;
for g:=1 to 3 do
begin
lt:=lt + (n mod 10);
n:=n div 10;
end;
if lt=rt then writeln('Билет счасливый')
else writeln('Билет не счасливый');

end.