Question

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

Answer 1

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.