Компьютерная графика делятся на два типа -​

program Project1;

var

 S : String;

 K, Num1, Num2 : Integer;

begin

 repeat

   Writeln('Задайте целое число:');

   Readln(K);

   S := 'Мы собрали ' + IntToStr(K) + ' ';

   Num1 := K mod 10;

   K := K div 10;

   Num2 := K mod 10;

   case Num1 of

     1 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриб';

     end;

     2..4 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриба';

     end;

     else

       S := S + 'грибов';

   end;

   S := S + ' в лесу.';

   Writeln('Результат:');

   Writeln(S);

   Writeln('Повторить - Enter. Выход - любой символ + Enter.');

   Readln(S);

 until S <> '';

end

using System;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           int n,i,j, imin = 0;

           double sum = 0;

           Console.Write("Введите n: ");

           n = Convert.ToInt32(Console.ReadLine());

           double[,] A = new double[n, n];

           Random r = new Random();

           for (i = 0; i < n; i++)

           {

               for (j = 0; j < n; j++)

               {

                   A[i, j] = r.NextDouble()*100 - 50;

                   Console.Write("{0,10:0.0}", A[i, j]);

                   if (A[i, j] < A[imin / 10, imin % 10]) imin = i * 10 + j;

               }

               Console.WriteLine();

           }

           i = imin / 10;

           for (j = 0; j < n; j++) sum += A[i, j];

           Console.WriteLine("Сумма элементов строки с наименьшим значением: {0,10:0.0}", sum);

       }

   }

}