var
s,i,k: integer;
begin
k:=0; s:=0;
for i:=300 to 900 do
begin
s:=s+i;
inc(k);
end;
writeln('srednee=',s/k);
end.
переведите с паскаля на кумир жпжпжпжпжппж СРОЧНО!!!!