1) составить программу, организующую массив записей о книгах, ввести информацию…

Сделано для трех книг, потом поменяешь в двух местахPROGRAM prim2; uses crt; Type book=record avtor: string[20]; name: string[25]; year: integer; end; Var f,i: integer; b: array[1… 3] of book; BEGIN clrscr; f: =0; {формирование записей} for i: =1 to 3 do Begin write ('Введите название книги: '); readln (b[i].name); write ('Введите фамилию автора: '); readln (b[i].avtor); write ('Введите год издания: '); readln (b[i].year); end; writeln; Writeln ('Сведения о книгах (автор, название, год издания) год издания которых позже 1990'); for i: =1 to 3 do Begin if b[i].year>2003 then {проверка условия задачи} Begin f: =f+1; Writeln (f: 6,', b[i].avtor,', b[i].name,', b[i].year); end; end; writeln ('Итог: ',f); readln; END.