А) на экран будут выведены песни длительностью > 3.5 (мин)

б)
1.
{вывод результата}
for i:=1 to n do
with m[i] do
if stil = 'Rap' then
writeln(naz:6,stil:8,time:9:1,name:5);
writeln;

2.
type pesni=record {описание записи}
naz:string[10];
stil:string[10];
time:real;
name:string[20];
end;

3.
type pesni=record {описание записи}
naz:string[10];
time:real;
name:string[20];
end;

4.
{вывод результата}
for i:=1 to n do
with m[i] do
if (time >=2)and(time<=3)and(name='Sting') then
writeln(naz:6,stil:8,time:9:1,name:5);
writeln;