Question

Даны три числа. Удвойте эти числа, если они являются упорядоченными по возрастанию. Решите с помощью паскаль и блок схемы.Помогите последнюю задачу

Answer 1

Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.