Даны две строковые величины. Написать программу подсчета букв 'в' в меньшей по длине величина. В случае равенства длин напечатать значение количества букв 'в' в каждой строковой величине.

Var n, m: integer;s,d:string;procedure fd (var z:string;t:integer);var i,k:integer;beginfor i := 1 to t do beginif z[i] = 'в' then k:= k +1;end;writeln(k);end;Begind:='Написать программу подсчета букв "в" в меньшей по длине величина ввв прпрпрп ролроллолшл нг';s:='В случае равенства длин напечатать значение количества букв "в" в каждой строковой величине';n:=length(s);m:=length(d);if n = m then begin fd(d,m);fd(s,n);endelse if n < m then fd(s,n)else fd(d,m);End.