решить с составлением блок-схемы. Очень Определите значение целочисленных переменных x и y после выполнения фрагмента алгоритма с блок-схемы.

X := 345
Y := 7
X := x div y
Y := x mod y

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end.