Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
1-десятка
2-тысяча
3-сотая
4-единица
Здесь очень не понятная блок схема если здесь просто два условия if то выполнится первое условие у просто программа выведет что y=100 если же это цикл while то эта программа уравнивает числа то есть она прекращает свою работу когда числа равны и тогда y=25