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

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