Program r14_16;
uses crt;
const n=20;
type tcost=record
r:byte;
k: 0..99;
end;
rec=record
name:string;
cost:tcost;
end;
list=array [1..n] of rec;
var A:list;
s,t:string;
procedure Init(var x:list);
var f:text;
k:byte;
begin
assign(f,'D:\УЧЕБА\ практика все\vpi zzz\t1.txt');
reset(f);
for k:=1 to n do
with x[k] do begin
readln(f,name);
read(f, cost.r);
readln(f, cost.k);
end;
close(f);
end;
procedure solve (x:list; s,t:string);
var i,iz,it:byte;
f:text;
p,q:boolean;
begin
i:=1;
p:=true;
q:=true;
while (i<=n) and (p or q) do begin
if x[i].name=s
t hen begin iz:=i;
p:=false;
end
else if x[i].name=t then
begin
it:=i;
q:=false;
end;
Inc(i);
end;
assign(f, 'a:\D:\УЧЕБА\ практика все\vpi zzz\t1.txt');
rewrite(f);
if p or q then
begin
if p then writeln(f, 'Товара',s,'в списке нет');
if q then writeln(f, 'Товара',t,'в списке нет');
end
else if x[iz].cost.r>x[it].cost.r then
writeln(f,'Товар',t,'дороже')
else
if x[iz].cost.r
writeln(f,'Товар',t,'дороже')
else
if x[iz].cost.k>x[it].cost.k then
writeln(f,'Товар',s,'дороже')
else
if x[iz].cost.k
writeln(f,'Товар',t,'дороже')
else writeln(f,'У товаров',s,'и',t,'цена одинаковая');
close(f);
end;
begin
Init(A);
writeln('Введите наименование первого товара');
readln(s);
writeln('Введите наименование второго товара');
readln(t);
solve(A,s,t);
end.