Массив из записей содержит сведения о компьютерах, находящихся на балансе в

//PascalABC.NET v3.3 1633

type

 Computer = record

   cType: string;

   yearOfPurchase: integer;

   price: integer;

end;

const m = 10;

var computers: array [1..m] of Computer;

types: array of string:=('суперкомпьютер', 'мэйнфрейм', 'сервер', 'ПК');

begin

 for var i:=1 to m do

   with computers[i] do

   begin

     cType:=types[random(0,3)];

     yearOfPurchase:=random(1992, 2003);

     price:=random(15000,120000);

   end;

 writeln('Тип ЭВМ / Год покупки / Цена');

 for var i:=1 to m do

   with computers[i] do

   begin

     writeln(cType+' '+yearOfPurchase+' '+price);

   end;

 writeln();

 var C:=ReadInteger('Введите C: ');

 var sum:=0;

 var N:=ReadInteger('Введите N: ');

 writeln('На печать:');

 for var i:=1 to m do

   with computers[i] do

   begin

     if yearOfPurchase = n then sum += price;

     if (yearOfPurchase gt; 1997) and (price gt; C) then

       writeln('  '+cType+' '+yearOfPurchase+' '+price);

   end;

  writeln('Суммарная цена ЭВМ,приобретенных в '+n+' году: '+sum);

end.