Перевести код с pascal на c# program glas; uses crt; type t_str=array[1..10] of string[80]; t_set=set of char; var s,new: t_str; alf,gls,sogl: t_set; kol,i,j,kolg,kolsg,schet: byte; prom: string; begin clrscr; textcolor(green); schet: =1; kolg: =0; kolsg: =0; alf: =['a'..'z']; gls: =['a','e','i','o','u','y']; sogl: =['b','c','d','f','g','h','j','k', 'l','m','n','p','q','r','s','t','v','w','x']; writeln; writeln(' vvedite kol-vo slov(ne > 10 ! ): '); readln(kol); writeln; textcolor(red); writeln(' vvodim tolko zaglavnimi ! '); textcolor(green); writeln; for i: =1 to kol do begin writeln(' vvod ',i,'-go slova: '); readln(s[i]); prom: =s[i]; kolg: =0; kolsg: =0; for j: =1 to length(prom) do begin if (prom[j] in gls) then kolg: =kolg+1 else kolsg: =kolsg+1; end; if kolg> kolsg then begin new[schet]: =prom; schet: =schet+1; end; end; clrscr; writeln; writeln(' ishodnii massiv slov: '); writeln; for i: =1 to kol do begin write(' ',s[i]); end; readkey; writeln; writeln; writeln(' slova gde > glas.'); writeln; for i: =1 to schet do begin write(' ',new[i]); end; readkey; end.

Using system; using system.collections.generic; using system.linq; using system.text; using system.text.regularexpressions; internal static class program {       private const string glasnye_ = "aeiouy";       private const string soglasnye_ = "bcdfghjklmnpqrstvwxz";       private static void main()       {               try               {                       console.writeline("введите строку слов (любые символы будут считаться разделителями)");                       var s = console.readline();                       console.writeline($"гласных больше чем согласных: \n {task1(s).aggregate("", (current, t) => current + t.toupper() + " ")}");                       console.writeline();                       console.writeline($"гласных больше чем согласных: \n {task1regex(s).aggregate("", (current, t) => current + t.toupper() + " ")}");                       console.readline();               }               catch(exception e)               {                       console.writeline(e);                       console.readline();               }       }       private static ienumerable< string> task1(string s)       {               console.foregroundcolor = consolecolor.cyan;               console.writeline("без регулярных выражений");               var words = s.split(new[] {' ', '-', ',', '.', '*', ': ', '; ', '_'}, stringsplitoptions.removeemptyentries).tolist();               var sb = new stringbuilder();               for (var i = 0; i < words.count; i++)                       sb.appendline($"слово[{i}] = {words[i].toupper()}");               console.write(sb.;               var result = new list< string> ();               foreach (var word in words)               {                       var k = 0;                       foreach (var c in word.                       {                               k += glasnye_.contains(c) ? 1 : 0;                               k -= soglasnye_.contains(c) ? 1 : 0;                       }                       if (k > 0)                               result.add(word);               }               return result;       }       private static ienumerable< string> task1regex(string s)       {               console.foregroundcolor = consolecolor.green;               console.writeline("с регулярными выражениями");               var ms = regex.matches(s, @"[a-z]+", regexoptions.ignorecase);               var sb = new stringbuilder();               for (var i = 0; i < ms.count; i++)                       sb.appendline($"слово[{i}] = {ms[i].value.toupper()}");               console.write(sb.;               var result = new list< string> ();               for (var i = 0; i < ms.count; i++)               {                       var v = ms[i].value;                       var k = regex.matches(v, $"[{glasnye_}]", regexoptions.ignorecase).count;                       k -= regex.matches(v, $"[{soglasnye_}]", regexoptions.ignorecase).count;                       if (k > 0)                               result.add(v);               }               return result;       } }

Program ex; var p,r: integer; begin read(p,r); write('s =  ', p*r) end.