Задачи на языке паскаль помогите. Задано 3 числа проверить идут они по возростанию по убыванию или произвольно. Задано 2 числа найти их произведение.
1)
var a,b,c:integer; begin readln (a,b,c); if (a>b) and (b>c) then writeln ('Числа стоят по убыванию '); if (aend.
2)
var a,b:integer; begin readln (a,b); writeln (a*b); end.