Даны 3 числа a, b, c. Если a

program zz1;

var a, b, c:integer; / / вводим переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

if (a < b) and (b < c) then write (' сумма введенных чисел = ', a + b + c)

else write (' произведение введенных чисел = ', a * b * c); / / проверяем на правильность условия и выводим один ответ или другой

end.