Склавиатуры вводится две строки. символы в них не повторяются, т.е. стоят в разнобой. вывести на экран только те символы, которые являются общими. используя множества!

"школьный вариант" (чтобы помучиться): // pascalabc.net 3.0б сборка 1066 var   s1,s2: string;   p,q: set of char;   i: integer;   c: char; begin   write('введите первую строку: '); readln(s1);   write('введите вторую строку: '); readln(s2);   p: =[]; q: =[];   for i: =1 to length(s1) do include(p,s1[i]);   for i: =1 to length(s2) do include(q,s2[i]);   p: =p*q;   for c: =' ' to chr(255) do       if c in p then write(c,' ');   writeln end.   тестовое решение: введите первую строку: карл у клары украл кораллы введите вторую строку: клара у карла украла кларнет   к а к л р у современный вариант: // pascalabc.net 3.0б сборка 1066 begin   var s1: =readlnstring('введите первую строку: ');   var s2: =readlnstring('введите вторую строку: ');   writeln('общие символы в строках: ',s1.intersect(s2).sorted); end. тестовое решение: введите первую строку:   карл у клары украл кораллы введите вторую строку:   клара у карла украла кларнет общие символы в строках: [ ,к,а,к,л,р,у]

Var a: integer; begin writeln('введите число'); readln(a); b: =abs(a); writeln('модуль этого числа  ',b); end.