Перевод из Turbo Pascal В С - C (СИ) - Ответ 6884850

program N5;
uses crt;
var
  a: array[1..100] of integer;
  i,n,x1,x2,k: integer;
begin
  clrscr;
  write('Введите размерность массива (<100):');
  readln(n);
  write('Введите X1:');
  readln(x1);
  write('Введите X2:');
  readln(x2);
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=random(n);
      write(a[i],' ');
    end;
  writeln;
  writeln('Числа из промежутка:');
  k:=0;
  for i:=1 to n do
    begin
        if (a[i]>=x1) and (a[i]<=x2) then
        begin
          k:=k+1;
          write(a[i],' ');
    end;
    end;
  writeln;
  writeln('Чисел принадлежащих отрезку: ',k);
  readln
end.

program N4;
var a,b,c,k,s:real;
begin
  repeat
   write('A,B,C=');
  readln(a,b,c);
  until (b>c) and (c>a);
  k:=a;
  repeat
    write(k:0:8,' | ');
     if k<c then s:=2*k else s:=k*k;
     writeln(s:0:8);
     k:=k+1;
  until k>b;
  readln;
end.