6 15 16 20 вотак вот надо зашифровать слово ЕНОТ
<span>shift, caps lock) это же элементарно </span>
Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>
Var i,n,k: integer;
<span> a: array[0..1000] of integer;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> a[0]:=1; a[1]:=1;
</span><span> i:=2;
</span><span> repeat
</span><span> k:=i div 2;
</span><span> if (i mod 2) = 0 then a[i]:=a[k]+a[k-1]
</span><span> else a[i]:=a[k]-a[k-1];
</span><span> i:=i+1;
</span><span> until i>n;
</span><span> writeln('a(n) = ',a[n]);
</span><span>end.
</span>