Помогите пожалуйста решить задачку на паскале! (циклы с параметром)!!за ранее спасибо!

Ты наверное неправильно условие написал вот здесь "сколько он поймал в среднем рыб за день" скорее всего нужно искать количество рыб в среднем за неделю? Если так то:

program program1;
var
s:real;
a,i:byte;
begin
s:=0;
for i:=1 to 5 do
begin
Writeln('Vvedite ulov za den');
Readln(a);
s:=s+a;
end;
s:=s/7;
writeln(s);
end.

Первая ошибка в том, что предполагается. судя по условию, что рыбу он ловил пять раз и надо вводить пять разных уловов. Вторая ошибка не твоя - нормальные люди считают средний улов за дни, когда рыбу ловили, а не с учетом выходных. Остальные ошибки - синтаксические в программе - ты не ставишь знаков ; после операторов и целым ты присваиваешь значения типа real, все это компилятор не пропустит...

Мда. Ну и бред. Начнём с простого - почему ежедневный улов задаётся один раз?

readln(a) - нужно писать в for, а так вы просто получаете 5*(рыбу за первый день)

По моему надо так.

Program Ulov;
var Ulov_Den, Ulov_Sum:real;
i:integer;
begin
for i:=1 to 5 do begin
writeln('введите ежедневный улов');
readln (Ulov_Den);
Ulov_Sum:=Ulov_Sum+Ulov_Den;
end;
writeln('Ежедневный улов рыбака в периоде неделя равен ', Ulov_Sum/7);
end.

Пиши на почту.

1. пропущены ;
2. переменная параметра цикла должна быть целочисленной, а не вещественной
Слушай компилятор, он на такие ошибки указывает!!!