Япойду гулять. -сколько в предложении байт

Ответ - 15 байт, так как пробелы тоже считаются!

Любой символ весит 1байт, тогда ответ  13 байт

1. var a: array [1..100] of integer; i,n: integer; begin read(n); {количество эл. массива} read (a[1], a[2]); for i: =3 to n do a[i]: =a[i-1]+a[i-2]; for i: =1 to n do write (a[i],' ' ); end.2.const m=6; n=3; var a: array [1..100,1..100] of integer; i,j: integer; begin for i: =1 to m do read (a[i,1]); for i: =1 to m do begin j: =1; a[i,j+1]: = sqr(a[i,j]); a[i,j+2]: = a[i,j] div a[i,j+1]; {это условие мне не совсем понятно} end; for i: =1 to m do begin for j: =1 to n do write (a[i,j]: 3); writeln; end; end.

Var    a,b,c,d,p : integer;     r : real; begin readln (a,b,c,d); p : = 0; if (a< =30) and (b< =30) and (c< =30)  and (d< =30) then       begin      p : = p +1;         r: = a*b*c*d*2;       end; if d mod 2 = 0 then     begin      r : = a*b/10;       p : = p + 1;     end ; case p of 0 : writeln (a-d);   //как я понял иначе (все условия не выполняются) 1 : writeln (r); 2 : writeln (a,' ',b,' ',c,' ',d);   end; end.