Выяснить, являются ли предложенные варианты высказываниями? свой ответ письменно обосновать. а) все натуральные числа целые. б) существуют ли белые слоны?

Высказывание - предложение, которое может быть истинным или ложным.
а) Все натуральные числа целые. - истинное высказывание
б) Существуют ли белые слоны? - вопросительное предложение не является высказыванием.

Б

Интересно, что никто и никогда не видел белого слона! Белыми иногда называют очень светлых слонов, в древности считавшихся священными. В некоторых частях света им даже поклонялись.+

Белые слоны считались настолько ценными, что лишь королю было позволительно владеть таким слоном! И это было весьма кстати: окруженные величайшей заботой, белые слоны пользовались всеми дорогостоящими атрибутами роскоши. Они никогда не работали и жили в отдельных помещениях. У них были свои слуги, специально приставленные заботиться о белых слонах, а еда им подавалась зачастую в серебряных кормушках людьми в белых одеждах.

А насчет А я сейчас подумаю

А потом отправлю через комментрии

Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.

Задание №1
var
  x:integer;
begin
  for x:=5 to 15 do Writeln('x=',x:2,'  y=',2*x)
end.

Результат выполнения программы:
x= 5  y=10
x= 6  y=12
x= 7  y=14
x= 8  y=16
x= 9  y=18
x=10  y=20
x=11  y=22
x=12  y=24
x=13  y=26
x=14  y=28
x=15  y=30

Задание №2
var
  x:real;
begin
  x:=1;
  while x<=2 do begin
    Writeln('x=',x:4:1,'   y=',sin(3*x):8:5);
    x:=x+0.3
  end
end.

Результат выполнения программы:
x= 1.0   y= 0.14112
x= 1.3   y=-0.68777
x= 1.6   y=-0.99616
x= 1.9   y=-0.55069

Задание №3
const
  n=40;
var
  i:integer;
  a:real;
begin
  for i:=1 to n do
  begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.

Фрагмент работы программы:
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=