Видео от Дианы Гончаренко

program; var w, u, h, k, v, y, p, s, g, x, x2, y2, z2, niu, Integral, Integral2:real; n, m, i, a, b, e1, e2, e, e3, e4, e5:integer; begin if and (x 1)) then e1:1 else e1:0; if ((0 y) and (y 2x1)) if e1 then s:s+xx+yy; if e1 then a:a+1; end; Integral:(v, a)(s); begin if if and (niu 1)) and then e5:1; if e51 then b:b+1; end.