На языке паскаль . задано 3 числа проверить идут они по возростанию по убыванию или произвольно. задано 2 числа найти их произведение.

1)

var
a,b,c:integer;
begin
readln (a,b,c);
if (a>b) and (b>c) then writeln ('Числа стоят по убыванию ');
if (a<b) and (b<c) then writeln (' Числа стоят по возрастанию');
end.

2)

var
a,b:integer;
begin
readln (a,b);
writeln (a*b);
end.