) Составить блок-схему алгоритма и программу на Паскале для вычисления функций z. Ввести код в программу Паскаль, вычислить значения функции и проверить ее для самостоятельно выбранных трех пар значений переменных X и Y. На проверку нужно прислать код программы и результат работы в виде скриншота

1                                   ЧАСТИ РЕЧИ

Существительные -                                       Глаголы -

письмо                                                            съел

мальчик                                                           вьет

семья

тетрадь

подъем

2                                           РАЗДЕЛИТЕЛЬНЫЙ Ъ И Ь ЗНАКИ

ь                                                             ъ

Письмо                                                   Съел

Мальчик                                                  Подъем

Вьет

Семья

Тетрадь

program raf105;

var

 s,s1,s2: string;

 slov,numb,i,j,l: integer;

begin

writeln('Введите строку:');

readln(s);

s:= lowercase(s);

s1:= '';

s2:= '1234567890';

while j<>-1 do

begin

 j+= 1;

 l+= 1;

 for i:=1 to length(s1) do

   if (s[j] = s1[i]) and (slov = 0)

     then slov+= 1

     else if (i<=length(s2)) and (s[j] = s2[i])

     then numb+=1;

 if s[j+1] = ' '

   then j:= -1;

end;

for i:=l+1 to length(s) do

begin

 if s[i] = ' '

   then

   begin

     for j:=1 to length(s1) do

       if s[i+1] = s1[j]

         then slov+= 1;

   end

   else

   begin

     for j:=1 to length(s2) do

       if s[i] = s2[j]

         then numb+=1;

   end;;

end;

writeln;

writeln('В строке:');

writeln(slov,' сл.');

writeln(numb,' циф.');

end.