Постройте изображение предмета, находящегося между собирающей линзой и её фокусом. Будет ли оно действительным или мнимым?

Var n,i,s:integer;
begin
writeln('Введите n');
read(n);
for i:=5 to n do
if i mod 4=0 then s:=s+i;
write ('Сумма натуральных чисел которые кратны 4 равно ',s);
end.