Что делать???????????????????????????????????????
Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
Принцип такой, формулу свою вставь
<span>uses crt;
var x,e,s,t:real;
k:integer;
begin
clrscr;
e:=0.000001;
write('x=');
readln(x);
s:=0;
t:=1;
k:=0;
while abs(t)>e do
begin
k:=k+1;
t:=-t*x*x/(2*k*(2*k-1));
s:=s+t;
end;
write('S=',s:0:6);
readln;
end.</span>
//////////////////////////////////////////
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.