Program mm;
var a: array [1..10] of real; i: integer; s: real;
begin
for i:=1 to 10 do begin
Writeln("Введите элемент номер ",i); read(a[i]);
end;
for i:=1 to 10 do
if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];
Writeln(s); readln;
end.
Если что, пиши в личку.
program griby;
var k: integer;
begin
readln (k);
writeln ('Мы нашли в лесу',k,' ', ' грибов');
end.
...
for i:={значение икс, с которого начнется табуляция} to {значение, до которого будет табулироваться} do
writeln(i, {функция в которой вместо икс писать i});