Получить названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет - Turbo Pascal - Ответ 14148857

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f:array[1..20]of igr;
    n,i,k: integer;
begin
clrscr;
repeat
write('Введите количество игрушек от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Игрушка  №',i,':');
  write('  название - ');
  readln(f[i].n);
  write('  стоимость (в коп.) - ');
  readln(f[i].s);
  writeln('  возрастные ограничения:');
  write('    от - ');
  readln(f[i].dm);
  write('    до - ');
  readln(f[i].db);
 end;
writeln('Заполнение массива завершено! Нажмите Enter');
readln;
clrscr;
writeln('Вывод массива F');
for i:=1 to n do
writeln('Игрушка №',i,': название - ',f[i].n:11,'; стоимость - ',f[i].s:7,' к. ; детям от ',f[i].dm,' до ',f[i].db,' лет');
writeln('Вывод названия игрушек, цена которых не больше 4 руб. и которые подходят детям 5 лет:');
k:=0;
for i:=1 to n do
if (f[i].s<=400) and (f[i].dm<=5) and (f[i].db>=5) then
 begin
  k:=1;
  writeln('  ',f[i].n);
 end;
if k=0 then write('Таких игрушек нет');
readln;
end.

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f:array[1..20]of igr;
    n,i,k: integer;
begin
clrscr;
repeat
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЁЈаг襪 ®в 2 ¤® 20 n=');
readln(n);
until n in [2..20];
writeln('‚ўҐ¤ЁвҐ ¤ ­­лҐ:');
for i:=1 to n do
 begin
  writeln('€ЈагиЄ   ь',i,':');
  write('  ­ §ў ­ЁҐ - ');
  readln(f[i].n);
  write('  бв®Ё¬®бвм (ў Є®Ї.) - ');
  readln(f[i].s);
  writeln('  ў®§а бв­лҐ ®Ја ­ЁзҐ­Ёп:');
  write('    ®в - ');
  readln(f[i].dm);
  write('    ¤® - ');
  readln(f[i].db);
 end;
writeln('‡ Ї®«­Ґ­ЁҐ ¬ ббЁў  § ўҐа襭®! Ќ ¦¬ЁвҐ Enter');
readln;
clrscr;
writeln('‚лў®¤ ¬ ббЁў  F');
for i:=1 to n do
writeln('€ЈагиЄ  ь',i,': ­ §ў ­ЁҐ - ',f[i].n:11,'; бв®Ё¬®бвм - ',f[i].s:7,' Є. ; ¤Ґвп¬ ®в ',f[i].dm,' ¤® ',f[i].db,' «Ґв');
writeln('‚лў®¤ ­ §ў­Ёп ЁЈаг襪, 業  Є®в®але ­Ґ Ў®«миҐ 4 агЎ. Ё Є®в®алҐ Ї®¤е®¤пв ¤Ґвп¬ 5 «Ґв:');
k:=0;
for i:=1 to n do
if (f[i].s<=400) and (f[i].dm<=5) and (f[i].db>=5) then
 begin
  k:=1;
  writeln('  ',f[i].n);
 end;
if k=0 then write('’ ЄЁе ЁЈаг襪 ­Ґв');
readln;
end.