Задача 14.2. Каталог мiстить вiдомостi про 10 книг. Кожна книга має автора, назву i рiк видання. Вивести список книг з назвою " Інформатика" або вiдповiдне повiдомлення, якщо такої книги немає.

Program Books;
Type Book=record
       Autor, Nazva:string[20];
       Year:integer;
end;
      Katalog=array[1..10] of Book;
Var Bk:Katalog; i:integer; t:boolean;
Begin
 WriteLn('Введiть данi про книги');
 for i:=1 to 10 do
 With Bk[i] do
 begin
 Write('Автор ');
 ReadLn(Autor);
 Write('Назва ');
 ReadLn(Nazva);
 Write('Рiк видання');
 ReadLn(Year);
 end;
    t:=False; {Ознака наявностi потрiбностi книги}
 for i:=1 to 10 do
 With Bk[i] do
 if Nazva='Iнформатика' then
 begin
            t:=True;
 Writeln(Autor, ', ', Nazva, ', ', Year);
 end;
 if not t then Writeln('Такої книги в каталозi немає');
End.

Завдання 14.2. В класному журналі записують інформацію про батьків учнів. Надрукувати прізвища тих батьків у яких професія "столяр", ябо повідомлення про те, що таких батьків немає.