Написать программу расчета по формуле y=2x+1/c

1) var n,i,p: longint; a: array[1..100]of longint; begin read(n); p: =1; for i: =1 to n do read(a[i]); for i: =1 to n do if a[i] mod 3=0 then p: =p*a[i]; writeln(p); end.2)var n,i,s,p: longint; a: array[1..100]of longint; beginread(n); p: =1; s: =0; for i: =1 to n doread(a[i]); for i: =1 to n doif a[i]> 0 then s: =s+a[i]; for i: =1 to n doif a[i]< 0 then p: =p*a[i]; if p> s then writeln('proizvedenie')else if p< s then writeln('summa')else writeln('ravni');   end.3)var n,f,i,o: longint; a: array[1..100]of longint; beginread(n); f: =0; for i: =1 to n doread(a[i]); for i: =n downto 1 do beginif a[i]< 0 then f: =f+1; if f=2 then begin o: =a[i]; break; end; end; writeln(o); end.

Смотря где рисовала! попробуй перезагрузить, у меня было такое в paint, не открывается только твой рисунок? или все файлы-картинки? если изображение не открывается , должна  высветится табличка с какой либо надписью почему она не открывается! есть много случаев , например: этот файл не потянет на твой компьютер, у тебя если тупой виндоус , или наоборот слишком отличный! или файл ты неправильно сохранила, что тот просто на просто не сохранился! попробуй перезагрузить файл, возможно получиться, или почисти компьютер  от файлов не нужных, возможно он перегружен слишком,