Возможно ли при каких-нибудь значениях x, y, z от нуля до десяти получить. предложения: a) рыбка плавает в пруду. b) птичка летает в пруду. c) птичка под облаками. d) рыбка летает под облаками. e) птичка плавает под облаками. f) рыбка летает . program ifurok; var x, y, z: byte; begin readln( x, y, z ); if (x> 5) or (x< 6) then write( ' рыбка ' ) else write( ' птичка ' ); if y> 7 then if y mod 2 = 3 then write( ' летает ' ) else write( ' плавает ' ); if z mod 3=0 then if (x div 2 > 4) and (x mod 2< > 1) then write( ' в пруду ' ) else write( ' под облаками ' ); writeln( '.' ) end.

Из описания следует, что x,y,z - целые неотрицательные числа.
Слово "Рыбка" выводится всегда, поскольку х либо меньше 6, т.е. равно 0,1,2,3,4,5, либо больше 5, т.е. равно 6,7,8,9,10. Соответственно, слово "Птичка" не будет выведено никогда.
Если y>7 (y=8,9,10), то условие y mod 2 = 3 всегда ложно (остаток от деления на два не может быть равен трем) и поэтому выводится слово "плавает". Если же y<=7, то не выводится ничего.
При z, кратном 3 (z=0,3,6,9) проверяется истинность сложного высказывания (x div 2 > 4) and (x mod 2<>1). Оно истинно если при целочисленном делении х на два получается число большее четырех, т.е. при х=10 и при этом х должен быть четным. И тогда будет напечатано в "пруду". Если же это высказывание ложно, печатается "под облаками".
И в конце выводится точка.
Итак, при значениях x,y,z не превышающих 10:
a) Рыбка плавает в пруду. - x=10, y∈[8,9,10], z∈[0,3,6,9]
b) Птичка летает в пруду. - никогда
c) Птичка под облаками. - никогда
d) Рыбка летает под облаками. - никогда
e) Птичка плавает под облаками. - никогда
f) Рыбка летает. - никогда

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
  a.Println;
  var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
  var ip:=a.FindIndex(x->x>0)+1;
  Writeln('Номер максимального по модулю элемента: ',imax+1);
  Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.

Пример
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7

//PascalABC.NET
var
    nt, dt : integer;
begin
    var n1 := 1; var d1 := 1;
    var n := 2; var d := 1;
    var i := 2;
    while i < 5 do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
        i += 1
    end;
    writeln(n,'/',d);
    
    n1:=1; d1:=1;
    n:= 2; d:=1;
    while (abs(n/d - n1/d1) > 0.001) do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
    end;
    writeln(n,'/',d,'-',n1,'/',d1,'=',n/d-n1/d1)
end.