[Rembo]

PHP код:

var s:real;
i,n:integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do s:=s+sin(n);
writeln(s:2:4);
readln;
end. 

первая...

PHP код:

const n=10;
const max_rand=20;
var mas:array[1..n] of integer;
i,i2:integer;
tmp_v,c_min,min:integer;
a,b,c:integer;
begin
randomize;
for i:=1 to n do mas[i]:=random(max_rand);

writeln('Введите A и B');
readln(a,b);
if b<a then
begin
 c:=a;
 a:=b;
 b:=c;
end;
for i:=1 to n-1 do
begin
    min:=mas[i];
    c_min:=i;
    for i2:=i+1 to n do
    begin
      if (mas[i2]<=min) then
      begin
        c_min:=i2;
        min:=mas[i2];
      end;
    end;
    tmp_v:=mas[i];
    mas[i]:=min;
    mas[c_min]:=tmp_v;
end;
for i:=1 to n do
     if (mas[i]>=a) and (mas[i]<=b) then writeln(i,'-',mas[i]);
readln;
end. 

вторая...