Задан массив f[1..8] запишите команды для вычисления арифметических выражений: 1) в переменной pr находится произведение 1 и 3 элемента массива 2) в переменной raz находится разность 6 и 9 элемента массива 3) в переменной min находится удаленное значение 4го элемента массива

У меня такое ощущение, что это код C++.

Мультимедиа (Multimedia) - компьютерде дыбысты, ақпаратты, тұрақты және қозғалыстағы бейнелерді біріктіріп көрсету үшін жинақталған компьютерлік технология. Ол ақпаратты кешенді түрде бейнелеуді — мәліметтерді мәтіндік, графикалық, бейне-, аудио- және мультипликациялық түрде шығаруды — жүзеге асырады. Мәтін, түрлі-түсті графика, дыбыс, сөз бен кескін синтезін жасап, ақпараттың өте көлемді мөлшерін жадында сақтап, диалогтық түрде жұмыс істейді. Мультимедиа элементтерімен еркін интерактивті түрде қатынас құруға, дыбыспен сүйемелденетін бейнекөріністерді компьютер экранында көрсетуге, тыңдауға толық мүмкіндік бар. Мультимедиалық программалар сөйлейтін энциклопедиядан бастап, бейнеклиптік мәліметтер базасын жасау жұмыстарын толық қамти алады.

const

 AOper: array [0..3] of string = ('+', '-', '*', '/');

var

 a, b, Oper: Integer;

 r: Real;

begin

 Randomize;    // инициализация датчика случайных чисел

 a := Random (1001);

 b := Random (1001);

 Oper := Random (4);

 case Oper of

 0: r := a + b;

 1: r := a - b;

 2: r := a * b;

 3:if b <> 0 then begin

     r := a / b;

   end else begin

     WriteLn ('Произошла ошибка при делении на ноль');

     Exit;

   end

 else r := -1;

 end;

 WriteLn (a);

 WriteLn (b);

 WriteLn (Aoper [Oper]);

 if (r >= 0) and (r - Trunc (r) = 0) then begin   // если в результате получилось положительное целое число

   WriteLn ('yes');

   WriteLn (r :6 :0);

 end else

   WriteLn (' no');

 ReadLn;

end.

Объяснение:

r - Trunc (r) // это выделение дробной части числа