Подумайте, что в задаче принято за 100%. 1) В магазине батон хлеба стоит 6,7 р., а на лотке цена такого же батона 6 р. На сколько процентов дешевле продается батон с лотка

Var  x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.