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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.