program prim11;
const n=5;
type 
 export=record
  strana:string;
  tovar shtuk:array[13] of string;
 end;
var 
 a:array[1n] of export;
 ij:integer;
begin
 writeln('vvod nazv 5 stran');
  for i:=1 to n do
   with a[i] do
    begin
     readln(strana);
     for j:=1 to 5 do 
      begin
       readln(tovar[j]);
       readln(shtuk[j]);
      end;
    end;
 for i:=1 to n do
  begin
   for j:=1 to 5 do
    if a[i]strana='Kanada Italia USA Germany France' then writeln('tovar= 'a[i]tovar[j]);
   writeln('shtuk= 'a[i]shtuk[j]);
  end;
end.

program prim11;
const
 n=5;
type
 export=record
         strana:string;
         tovar:array[1..3] of string;
         shtuk:array[1..3] of byte;
        end;
var
 a:array[1..n] of export;
 i,j:integer;
begin
 writeln('vvod nazv stran');
  for i:=1 to n do
   with a[i] do
    begin
     write('Strana: ');
     readln(strana);
     for j:=1 to 3 do
      begin
       write('Tovar: ');
       readln(tovar[j]);
       write('Shtuk: ');
       readln(shtuk[j]);
      end;
     writeln;
    end;
 for i:=1 to n do
  begin
   if (a[i].strana='Kanada') or (a[i].strana='Italy')
      or (a[i].strana='USA') or (a[i].strana='Germany')
      or (a[i].strana='France') then
    begin
     writeln(a[i].strana);
     for j:=1 to 5 do
      writeln(a[i].tovar[j],'    ',a[i].shtuk[j],' shtuk');
     writeln;
    end;
  end;
 Readln
end.