1.Представьте в виде построчной записи алгоритм решения следующей задачи:
Фруктовый магазин продаёт яблоки поштучно по 10 рублей., груши по 20.,апельсины по 30 рублей. В первые два дня недели продано: понедельник - х яблок, у груш, z апельсинов; во вторник - z яблок, у груш, x апельсинов. Вычислите, на какую сумму магазин продал за эти два дня

const

 n = 3;

var

 a: array[1..n, 1..n] of integer;

 i, j, k, sum, sum2, x: integer;

begin

 sum := 0;

 sum2 := 0;

 randomize;

 writeln('Исходный массив');

 for i := 1 to n do

 begin

   for j := 1 to n do

   begin

     a[i, j] := 1 + random(50);

     write(a[i, j]:4);

     sum := sum + a[i, j];

     if a[i, j] mod 3 = 0 then

       sum2 := sum2 + a[i, j]

   end;

   writeln;

 end;

 Writeln('Сумма всех элементов массива: ', sum);

 Writeln('Сумма всех элементов массива кратных 3: ', sum2);  

end.

var

 a, b, c, v: integer;  

 s, d1, d2: real;

begin

 Writeln('Введите А: ');

 Read(a);

 Writeln('Введите Б: ');

 Read(b);

 Writeln('Введите C: ');

 Read(c);

 V := a * b * c;

 Writeln('Результат "V:=a*b*c" = ', V);

 Writeln('Введите D1: ');

 Read(d1);

 Writeln('Введите D2: ');

 Read(d2);

 s := d1 * (d2 / 2);

 Writeln('Результат "s:=d1*(d2/2)" = ', s);

end.

Более простой вариант:

begin

 var (a,b,c):= ReadInteger3('Введите А B C: ');

 Println('Результат :', a*b*c);

 var (d1,d2):=ReadReal2('Введите D1 D1: ');

 Println('Результат: ', d1*(d2/2));

end.