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

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.