Var i,n,s: integer;beginn:=10;while i < n+1 dobegins:= s + i;writeln(i,s:4);i:= i +1;end;end.
В качестве подарка, и разминки сделал задание.
Надеюсь, что хотя бы "лучший ответ" не забудете поставить, за старания.
Сочные:вишня,яблоко,крыжовник,томат.
сухие:двухкрылатка,мак,пшеница,подсолнечник,орех.
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
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.