C# AND PASCAL ПЕРЕВЕДИТЕ КОД С ПАСКАЛЯ НА СИ ШАРП

program File32;
var
S:String;
F_in,F_out: File of Integer;
El,i,len:integer;

begin
Write('File1: ');
Readln(S);
Assign(F_in,S);

Reset(F_in);
len:=1;
while not eof(F_in)do
begin
Read(F_in,El);
inc(len);
end;
Close(F_in);

Reset(F_in);

Assign(F_out,'~'+S);
ReWrite(F_out);

i:=1;
while (not eof(F_in))do
begin
Read(F_in,El);
if i > (len div 2) then Write(F_out,El);
inc(i);
end;

Close(F_in);
Close(F_out);
Erase(F_in);
Rename(F_out,S);
end.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.