Question

По данной блок-схеме записать программу для решения задачи

Answer 1

var
a, b, p:integer;
begin
readln(a) ;
readln(b) ;
if a>b then
a:=a+7
else
a:=a/4;
p:=a+b;
writeln(a, ' ', b, ' ', c);
end.