Прог-ие 1К 2С / 2.1

program Project1;

{

2. Решить задачу 1 с использованием множества согласных.

}

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows,

Unit1;

var

predlog : string[70];

arr_sl : mas_str;

s, c, p, kol : integer;

t : string;

soglasn : string;

begin

{ TODO -oUser -cConsole Main : Insert code here }

soglasn := 'бвгджзйклмнпрстфхцчшщ';

CharToOEM(PChar(soglasn), PChar(soglasn));

for c := 1 to 21 do

mnog := mnog + [soglasn[c]];

t := 'Введите предложение не более 70 символов';

CharToOEM(PChar(t), PChar(t));

writeln(t);

readln(predlog);

vudelen(predlog, arr_sl, s);

for p:= 1 to s do

begin

kol := s4et_bykv(arr_sl[p]);

if kol > 0 then

begin

t := arr_sl[p];

writeln(PChar(t), ' ', kol);

end;

end;

readln;

end.