Овца - потому что оно домашнее животное, а остальные дикие. :)
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
Устройство обработки информации называется процессор