//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 > 1997) and (price > C) then
writeln(' '+cType+' '+yearOfPurchase+' '+price);
end;
writeln('Суммарная стоимость ЭВМ,приобретенных в '+n+' году: '+sum);
end.