3*2=6
128*512*6=393216Ъ
128+512=640
640:10=64
64*6=384кб
Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>
Var a,b,x: integer;
begin
readln(a,b);
x:=a;
a:=b;
b:=x;
writeln(a, ' ', b);
end.