Определить сумму, истраченную школьником, на завтраки в течение недели паскаль циклом сос

Uses crt;
var
s,c:real;
begin
writeln('Введите стоимость завтрака');
readln(c);
s:=0;
for var i:=1 to 7 do
s:=s+c;
writeln('Сумма, истраченная школьником на завтраки за неделю= ',s);
end.