Даны простые высказывания: а=(5< 3), b= (2=3) и c = (4> 2) определить истинность составного высказывания: (a and b) or c< --> (a or c) and (a and b) подробное решение, !

Текст ниже программы организует ввод данных и запись их в типизированный файл. для завершения ввода в качестве названия надо ввести символ "звездочка" ( * ). type   song=record   name,style: string[20];   duration: real   end; var   f: file of song;   r: song; begin   assign(f,'mysongs.dat');   rewrite(f);   writeln('вводите данные в порядке "наименование, стиль, длительность');   writeln('для окончания ввода укажите символ * вместо наименования');   repeat       readln(r.name);       if r.name< > '*' then begin           readln(r.style);           readln(r.duration);           write(f,r)       end   until r.name='*';   close(f) end.

Type   mus = record     name: string;     style: string;     dur: real;   end; var   a: array[1..10000] of mus;   i,n: integer;   nam, st: string;   duration: real; begin   writeln('введите количество композиций:   ');   readln(n);   for i: =1 to n do   begin     write('название: ');     read(nam);     write(' стиль: ');     read(st);     write(' длительность:   ');     read(duration);     a[i].name: =nam;     a[i].style: =st;     a[i].dur: =duration;   end; end.