Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
1. Старуха управляет стариком (посылает его к золотой рыбке с просьбами).
2. Старуха управляет золотой рыбкой (просит золотую рыбку через старика).
3. Старик управляет золотой рыбкой (передает золотой рыбке просьбы старухи).
4. Золотая рыбка управляет вещами старика и старухи (старые вещи исчезают, новые - появляются).
На ступени бесконечной лестницы.