Задача:
сведения об автомобиле состоят из его марки, номера, цвета, фамилии владельца.Подсчитать количество автомобилей заданной марки.
type vedomost=record
marka:string;
nomer:integer;
color:string;
familia:string;
end;
var
danue:array[1..3] of vedomost;
i,m:integer;
k:string;
begin
for i:=1 to 3 do
with danue[i] do
begin
writeln('Марка-'); readln(marka);
writeln('Номер-'); readln(nomer);
writeln('Цвет-');readln(color);
writeln('Фамилия-');readln(familia);
end;
writeln('Марка машины для подсчета');readln(k);
for i:=1 to 3 do
begin
with danue[i] do
if marka=k then
begin
writeln(marka);
end;
end;
readln;
end.