Запишите на языке паскаль программу которая выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.

Begin   writeln (chr(66),chr(69),chr(71),chr(73),chr(78)); end.

Program dom_zad_2; var a, b, c, p, s: real;   begin  writeln ('значение стороны a: '); readln(a); writeln ('значение стороны b: '); readln(b); writeln ('значение стороны c: '); readln(c); p: =(a+b+c)/2; s: =p*(p-a)*(p-b)*(p-c);   if s< =0 then writeln ('невозможно') else writeln('s = ',sqrt(s): 5: 2); end. пример 1: значение стороны a: 3значение стороны b: 4значение стороны c: 5s = 6.00пример 2: значение стороны a: 2 значение стороны b: 2 значение стороны c: 5 невозможно

Номер 1 program n1; var a: array [1..10] of integer; i: integer; beginfor i: = 1 to 10 doreadln(a[i]); for i: =1 to 10 do beginif a[i]> 5 thenwrite (a[i]); end; end. номер 2 program n1; var a: array [1..10] of integer; i,s: integer; beginfor i: = 1 to 10 doreadln(a[i]); s: =0; for i : = 1 to 10 do beginif a[i]> 0 thens: =s+a[i]; end; write(s); end. номер  3 program n1; var a: array [1..10] of integer; i: integer; beginfor i: = 1 to 10 doreadln(a[i]); for i: =1 to 10 do begina[i]: =a[i]*2; write(' ',a[i]); end; end.