Пусть Программа определяет длину введенной строки, Если L делится на 5 без остатка, то должно быть определено количество символов всего пробела.

1.

var
t,vk,vt: real;

begin
writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: ');
read(vk,vt);
writeln('Введите время (t) в часах: ');
read(t);
writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км');
end.

2.

var
n,x: real;

begin
writeln('Введите кол-во кактусов: ');
read(x);
writeln('Сколько кактусов было побрито? ');
read(n);
if (x - n) < x/2 then writeln('Гладких кактусов больше.');
if (x - n) = x/2 then writeln('Небритых и гладких поровну.');
if (x - n) > x/2 then writeln('Небритых кактусов больше.');
end.

Сканера и фотоаппарата нет, поэтому вот схема:
                                            
общ мин/ |       ||        |(х) на общий минус
                                   |        |         |         |
общ мин/ |        |         |         |
                                   | |         |         |
общ мин/  |         |
                                                     | |

общие минусы соединены вместе и подключены к - источника питания,
(Х) - это лампочка 
первый прямоугольник слева - это элемент ИЛИ
второй прямоугольник слева - это элемент И
При одновременном замыкании на минус двух или более разных входов лампочка загорится