Выпишу только высказывания.
1)
Число 6 - четно (Истинно)
Все роботы - машины (Истинно)
У каждой лошади есть хвост (Истинно)
Есть кошки, которые дружат с собаками (Истинно)
Всякий моряк умеет плавать (Ложь)
2)
Ложь
Истина
Истина
Истина
Истина
Истина
Истина
Истина
Var a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
<span>end.</span>
Тоисть?я не поняла что имено закрепить?
Компьютер, калькулятор, нумератор.