Var
a,b,c,y,rez:real;
begin
writeln ('Введите A B C через пробел');
readln(a, b, c);
if (a>b) and(a>c) then begin
y:=a;
writeln('y =',y:0:2);
end
else if (b>a) and (b>c) then begin
y:=b;
writeln('y= ',y:0:2);
end
else if (c>b) and(c>a) then begin
y:=c;
writeln('y =',y:0:2);
end
else if (a=b) and (a=c) then begin
y:=a;
writeln('y= ',y:0:2);
end;
end.
А х вводится с клавиатуры или рандом,какие вообще параметры задатются? Может какие-то ограничения,так условие не совсем понятно
Ответ: Александр может собрать 6 флажков
<span>a = 4
b = 6
b = 8+a*b = 8+4*6 = 8+24 = 32
a = b/4*a = 32/4*4 = 8*4 = 32</span>