Задачи в Pascal ABC.

а) Подсчитать количество пар чисел '23', '45' по отдельности.

б) Заменить каждый символ '; ' на пару символов '/'.

б)

uses crt;

var s:string;

i, n:byte;

begin

clrscr;

writeln ('Введите строку, содержащую точку с запятой");

readln (s);

n:=length (s);

for i:=1 to n do

if s[i]='; ' then

s[i]:=' / ';

writeln ('Замена точек на / ');

write (s);

readln

end.