Из 2 чисел, максимальное увеличить в 2 раза, а минимальное уменьшить в 2 раза. нарисовать...

Question

Из 2 чисел, максимальное увеличить в 2 раза, а минимальное уменьшить в 2 раза. нарисовать блок-схему

Answer 1

var a,b,max,min:integer;

begin

read(a,b);

if (a>b) then max:=a; else max:=b;

if (a write(max*2);

write(min/2);

end.