Як вижити в умовах інформаційної війни

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end

static void Main(string[] args)

       {

           Console.WriteLine("Введіть напрям руху");

           char S = Console.ReadKey().KeyChar;

           S = Char.ToUpper(S);

           Console.WriteLine();

           Console.WriteLine("Введіть цифрову команду ");

           Console.WriteLine();

           String temp = Console.ReadLine();

           int N  = Convert.ToInt16(temp);

           Console.WriteLine();

           switch (S)

           {

               case 'П': Console.WriteLine("Робот Рухається на Північ");

                   break;

               case 'З':

                   Console.WriteLine("Робот Рухається на Захід");

                   break;

               case 'С': Console.WriteLine("Робот Рухається на Схід");

                   break;

               case 'Д': Console.WriteLine("Робот Рухається на Південь");

                   break;

               default:

                   Console.WriteLine("Помилка вводу напряму руху!");

                   break;

           }

           switch (N)

           {

               case 0:

                   Console.WriteLine("Робот Продовжив рух ");

                   break;

               case 1:

                   Console.WriteLine("Робот Повернув на ліво");

                   break;

               case -1 : Console.WriteLine("Робот Повернув на право");

                   break;

               default:

                   Console.WriteLine("Помилка вводу напряму руху!");

                   break;

           }

           Console.ReadKey();

       }

Объяснение:

Если я правильно понял условие :) могут возникнуть проблемы в с отображением украинской буквы і