Решить задачу на языке С#. Из предложения, состоящего не более чем из 20 символов, удалить все пробелы.

Pascall

uses crt,graphABC;

var w:char;

   xc,yc,c,x,y,i:integer;

begin

hidecursor;

repeat

clrscr;

writeln('Выберите фигуру');

writeln('1-треугольник');

writeln('2-квадрат');

writeln('3-круг');

writeln('4-ромб');

writeln('5-эллипс');

writeln('другое - выход');

read(w);

xc:=windowwidth div 2;

yc:=windowheight div 2;

setpencolor(clRed);

case w of

'1':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));

   for i:=1 to 4 do

    begin

     x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));

     y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));

     lineto(x,y);

    end;

   readln

   end;

'2':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   rectangle(xc-150,yc-150,xc+150,yc+150);

   readln

   end;

'3':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   circle(xc,yc,150);

   readln

   end;

'4':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc-100,yc);

   lineto(xc,yc-150);

   lineto(xc+100,yc);

   lineto(xc,yc+150);

   lineto(xc-100,yc);

   readln

   end;

'5':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   ellipse(xc-150,yc-100,xc+150,yc+100);

   readln

   end;

end;

until not(w in ['1'..'5'])

end.

Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).

type  matrix = array [1..8] of integer;var  F, output: text;  i, n, cc, sum: integer;  c: char;  x: matrix;  ma: real;
procedure convert (var c: char; var cc: integer);begin  if c='1' then cc:=1;  if c='2' then cc:=2;  if c='3' then cc:=3;  if c='4' then cc:=4;  if c='5' then cc:=5;  if c='6' then cc:=6;  if c='7' then cc:=7;  if c='8' then cc:=8;  if c='9' then cc:=9;  if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin  for n:=1 to 7 do begin    if x[n]>x[n+1] then swap(x[n],x[n+1]);  end;end;
begin  Assign(F, '1.txt');  Reset(F);  for i:=1 to 8 do begin    read(F, c);    convert(c,cc);    x[i]:=cc;  end;  Close(F);
  sorting(n,x);  sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];  ma:=sum/8;    Assign(output, 'output.txt');  rewrite(output);  writeln(output, sum); writeln(output, ma);  Close(output);end.