Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
A = true =>( A || (B && !C) )= true
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 <> 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.