1)составить программу,которая распечатает значения функций Y=2X+3 на отрезке [0;2,5]с шагом 0,1.

2)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.

cрочно надо на языке паскаль составить плиз)

Program PR1;uses crt;var x:real;Beginclrscr;x:=0;while x<=2.5 do begin writeln('Y=',2*x+3); x:=x+0.1; end;end.2)

Program PR1;uses crt;var b:array[1..16] of integer; i,p:integer;Beginclrscr;for i:=1 to 16 do begin writeln('Vvedite ',i,'-i chislo massiva'); readln(b[i]); end;writeln('Vvedite P');readln(p);for i:=1 to 16 do if b[i]=p then writeln(i,' ',b[i]);end.