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

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.