Если х принадлежит интервалу (4; 20), вычислить значение функции по формуле y=х2+1, иначе вычислить значение функции по формуле y=sin(х), задать изменение х от -60 до 60 с шагом 4.

Var     s,c: string;     i: integer; begin write('введите фамилию, имя и отчество, разделяя их одним пробелом: '); readln(s); s: =s+' '; i: =1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+' '+s[i+1]+'.'; i: =i+1; while s[i] < > ' ' do     i: =i+1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+s[i+1]+'.'; writeln(c) end. пример работы программы: введите фамилию, имя и отчество, разделяя их одним пробелом: толстой лев николаевич толстой л.н.

Const     n = 7; // количество наименований товаров var     a: array[1..n,1..3] of integer;     i,k,s: integer; begin for i: = 1 to n do       read(a[i,1],a[i,2],a[i,3]); k: =0; for i: = n downto 1 do       if a[i,2] = 0 then k: =i; if k > 0 then     begin     write('00 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 0 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 1 then k: =i; if k > 0 then     begin     write('01 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 1 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 10 then k: =i; if k > 0 then     begin     write('10 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 10 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; k: =0; for i: = n downto 1 do       if a[i,2] = 11 then k: =i; if k > 0 then     begin     write('11 - ',a[k,1]*a[k,3]);     s: =0;     for i: = k+1 to n do             if a[i,2] = 11 then                   begin                   write('+',a[i,1]*a[i,3]);                   s: =s+a[i,1]*a[i,3];                   end;     if s < > 0 then write('=',s+a[k,1]*a[k,3]);     writeln;     end; end. пример работы программы: 17 1 2 3 0 5 7 1 4 8 11 9 95 0 3 31 10 44 5 1 6 00 - 15+285=300 01 - 34+28+30=92 10 - 1364 11 - 72