Напиши программу которая считывает с клавиатуры две строки символов и выводит на экран : символы , которые встречаются в обеих строках

program pr1; uses crt; var stroka,stroka1: string; i,b,c,a: integer; mas: array['a'..'я'] of integer; r: char; beginclrscr; readln(stroka); readln(stroka1); b: =length(stroka); c: =length(stroka1); if b> c then begin for i: =1 to c do for a: =1 to b do if stroka[a]=stroka1[i] then mas[stroka1[i]]: =mas[stroka1[i]]+1; endelse begin for i: =1 to b do for a: =1 to c do if stroka1[a]=stroka[i] then mas[stroka[i]]: =mas[stroka[i]]+1; end; for r: ='a' to 'я' do if mas[r]> 0 then writeln(r,' ',mas[r]); end.

Const k = 100; var mas: array [1..k] of integer; i,a,b,s,n: integer; begin   write('количество элементов: '); readln(n);   write('первый и второй элемент: '); readln(a,b);   mas[1]: =a; mas[2]: =b; s: =a+b;   write( mas[1],' ',mas[2],' ');   for i: =3 to n do begin       mas[i]: =s;       s: =s+ mas[i];       write(mas[i],' ');   end; end. тестовое решение: количество элементов: 10 первый и второй элемент: 2 3 2 3 5 10 20 40 80 160 320 640

Var a,b,c,d,x,y,z,y1,z1,y2,z2,nod: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); y1: =a*d+c*b; y2: =y1; z1: =b*d; z2: =z1; while (y2> 0)and(z2> 0) do   if y2> z2 then y2: =y2 mod z2 else z2: =z2 mod y2; nod: =y2+z2; y1: =y1 div nod;   z: =z1 div nod; x: =y1 div z; y: =y1 mod z; if x> 0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end. пример: 1-я дробь (числитель и знаменатель): 1 10 2-я дробь (числитель и знаменатель): 2 5 1/2