ИЛЛЮЗИЯ МЮЛЛЕРА-ЛАЙЕРА или ГЕОМЕТРИЧЕСКАЯ ИЛЛЮЗИЯ
Код программы и блок схема - на форме должно быть - 1 кнопка - 1 label;
Var
a, b, c, x: integer;
begin
a := 7;
b := 1;
c := 12;
a := 2 * a - b;
x := a + 5;
b := x + x * a;
c := 5;
x := b * 3 - c;
Println(a, b, c, x);
end.
Вывод
13 252 5 751
var<span>a,b,c</span>:integer;
begin<span>read(a,b,c); if (a > b) and (a > c) then</span><span> write(a) elseif (b > a) and (b > c) then</span><span> write(b) else write(c);</span>end.