Вопрос пользователя:
из 2 чисел, максимальное увеличить в 2 раза, а минимальное уменьшить в 2 раза. нарисовать блок-схему
Илюха отвечает:
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.