Написать программу в Паскале. Даны два числа.Меньшее из них замените полусуммой этих чисел, а большее - их произведением. Составить блок-схему.

var a,b:integer;begin writeln('a=');readln(a);writeln('b=');readln(b);if (a>b) then  begin b:=(a+b)/2;a:=a*b; endelse begin a:=(a+b)/2;b:=a*b;end;writeln('a=',a, ' b=', b);readln;end.