Здравствуйте, saty, Вы писали:

S>структура записи


S>

S>type Rec= record
S>  NomerPlateza:string[10];
S>  Cel:string[20];
S>  Summa:integer;
S>end;
S>

S>Если цель не одна а несколько то нужно подсчитать сумму c заданной целью

Если Посчитать С Целью Прироста Кабачков В Совхозе Под Воркутой То И Так Сойдет!