Составить программу паскале, написать алгоритм
Пользователь вводит цены 1 кг конфет и 1 кг печенья. Найдите стоимость: трех покупок, каждая из 2,5 кг печенья и 1 кг 800 г конфет.

        static void Main(string[] args)       
{           
     Int32 x1, y1, x2, y2, x3, y3, x4, y4;

     Console.WriteLine("Введите координаты первой вершины x y");                    
     x1 = Int32.Parse(Console.ReadLine());           
     y1 = Int32.Parse(Console.ReadLine());

     Console.WriteLine("Введите координаты второй вершины x y");
      x2 = Int32.Parse(Console.ReadLine());           
      y2 = Int32.Parse(Console.ReadLine());

       Console.WriteLine("Введите координаты третий вершины x y");
        x3 = Int32.Parse(Console.ReadLine());           
        y3 = Int32.Parse(Console.ReadLine());

         bool b = false;           
         x4 = 0;            y4 = 0;

         if ((x2 - x1) * (x3 - x1) + (y2 - y1) * (y3 - y1) == 0)           
          {               
              x4 = x3 + x2 - x1;               
              y4 = y3 + y2 - y1;           
          }           
              else if ((x1 - x2) * (x3 - x2) + (y1 - y2) * (y3 - y2) == 0)           
                  {               
                    x4 = x3 + x1 - x2;               
                    y4 = y3 + y1 - y2;           
                   }           
                      else if ((x1 - x3) * (x2 - x3) + (y1 - y3) * (y2 - y3) == 0)                                                           {                                
                           x4 = x2 + x1 - x3;               
                            y4 = y2 + y1 - y3;           
                         }           
                           else b = true;

            if (b == false) Console.WriteLine("x4 = "+ x4 + "  y4 = "+ y4);                             else
                Console.WriteLine("Данные точки не вершины прямоугольника");

            Console.ReadKey();       
 }

A.
var 
a:array[1..10] of real; 
i:integer;
begin 
for i:= 1 to 10 do Begin 
write('Введите ',i,'-ый элемент массива '); 
Readln(a[i]); 
if a[i]>10 then a[i]:=sqrt(a[i]); 
End; 
write('Преобразованный массив '); 
for i := 1 to 10 do write(a[i],' | ');
end.

б.
var 
a:array[1..10] of real; 
i:integer;
begin 
for i:= 1 to 10 do Begin 
write('Введите ',i,'-ый элемент массива '); 
Readln(a[i]); 
if (i mod 2) = 0 then a[i]:=trunc(a[i]); 
End; 
write('Преобразованный массив '); 
for i := 1 to 10 do write(a[i],' | ');
end.