Перевести код Pascal в C#

@Olld · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Переведите пожалуйста с объяснениями!

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n]of char;
    c:char;
    s:string;
    x,y,k,z:integer;
begin
writeln('Введите текст из ',n*n,' символов');
s:='';
for x:=1 to n*n do
 begin
  c:=readkey;
  write(c);
  s:=s+c;
 end;
if x=n*n then writeln;
for x:=1 to n do
  begin
    for y:=1 to n do
      begin
        a[x,y]:=s[n*(x-1)+y];
        write(a[x,y]:2);
      end;
    writeln;
  end;
x:=n div 2+1;
y:=x;
k:=0;
for z:=1 to n*n do
  begin
    write(a[x,y],' ');
    case k mod 4 of
    0:begin
      dec(y);
      if (x-1)=y then inc(k);
      end;
    1:begin
       inc(x);
       if(n-x+1)=y then inc(k);
       end;
    2:begin
      inc(y);
      if(n-x)=(n-y) then inc (k);
      end;
    3:begin
      dec(x);
      if y=(n-x+1) then inc(k);
      end;
    end;
  end;
end.

	30.10.2015, 15:12