Домашние - Собака , кошка , курица.
Полосатые -Тигр , леопард.
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>