блок схема((

uses crt;
type Tobuv=record
cvt:string[10];
rzm:byte;
fsn:string[10];
cen:word;
end;
var sp:array[1..50]of Tobuv;
n,i,k:byte;
sr:word;
begin
clrscr;
write('Введите размер партии n=');
readln(n);
for i:=1 to n do
begin
writeln(i,':');
repeat
write('Введите цвет(черный,коричневый,белый,серый): ');
readln(sp[i].cvt);
until (sp[i].cvt='черный')or(sp[i].cvt='коричневый')or(sp[i].cvt='белый')or(sp[i].cvt='серый');
repeat
write('Размер от 36 до 45: ');
readln(sp[i].rzm);
until (sp[i].rzm>=36)and(sp[i].rzm<=45);
repeat
write('Фасон(мужские,женские): ');
readln(sp[i].fsn);
until (sp[i].fsn='мужские')or(sp[i].fsn='женские');
write('Цена: ');readln(sp[i].cen);
end;
clrscr;
{Вывод данных}
k:=0;sr:=0;
for i:=1 to n do
if sp[i].cvt='черный' then
begin
k:=k+1;
sr:=sr+sp[i].cen;
end;
if k=0 then writeln('Черной обуви нет!') 
else writeln('Средняя цена обуви черного цвета=',round(sr/k),' руб.');
k:=0;sr:=0;
for i:=1 to n do
if sp[i].cvt='коричневый' then
begin
k:=k+1;
sr:=sr+sp[i].cen;
end;
if k=0 then writeln('Коричневой обуви нет!')
else writeln('Средняя цена обуви коричневого цвета=',round(sr/k),' руб.');
k:=0;sr:=0;
for i:=1 to n do
if sp[i].cvt='белый' then
begin
k:=k+1;
sr:=sr+sp[i].cen;
end;
if k=0 then writeln('Белой обуви нет!')
else writeln('Средняя цена обуви белого цвета=',round(sr/k),' руб.');
k:=0;sr:=0;
for i:=1 to n do
if sp[i].cvt='серый' then
begin
k:=k+1;
sr:=sr+sp[i].cen;
end;
if k=0 then writeln('Серой обуви нет!')
else writeln('Средняя цена обуви серого цвета=',round(sr/k),' руб.');
readln
end.