Цитата:
Сообщение от EvroStandart
По одной строке добавлять в программу и компилировать не пробовал?
Тогда сразу будет видно с добавлением какой строки перестаёт работать.
Var a,b,d,c,e,f,:integer;
запятая лишняя 
|
не в запятой дело из паскаля коп нельзя писал случ поставил блин
не работает она сама