Какое по номеру слово закодировал каждый ученик

pascal:

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.