помогите горю,на етой теме меня небыло(болел) как делать незнаю

var s1,s2:string;
begin
write ('строка-'); readln (s1);
write ('слово-'); readln (s2);
writeln ('Колво=', GetCount(s1,s2));
end.
! | За откровенно хамское поведение + оскорбление участников форума автор заблокирован... Посты с нецензурной лексикой удалены |