type
mast = record
usluga: string[50];
tsena: real;
end;
var
a: array[1..100] of mast;
i, n: integer;
max: integer;
begin
writeln('размер базы услуг');
read(n);
for i := 1 to n do
begin
with a[i] do
begin
writeln('услуга');
readln(usluga);
writeln('стоимость');
readln(tsena);
end;
end;
writeln('предоставляемые услуги');
for i := 1 to n do
begin
writeln(a[i].usluga, ' ', a[i].tsena);
end;
max := 1;
for i := 1 to n do
begin
if a[i].tsena > a[max].tsena then begin
max := i;
end;
end;
writeln('самая дорогая услуга', ' ', a[max].usluga, ' ', a[max].tsena);
writeln('меньше 150 но больше 100');
for i := 1 to n do
begin
if (a[i].tsena > 100) and (a[i].tsena < 150) then begin
writeln(a[i].usluga, ' ', a[i].tsena);
end;
end;
readln;
end.