Program risunok;
var N:byte;
procedure kvadrat_iz_zvezd(N:byte);
var k,i:byte;
begin
for k:=1 to N do begin
for i:=1 to N-1 do begin
write('* ');
end;
writeln('*');
end;
end;

begin
repeat
writeln('Введите целое положительное число. Для окончания работы нажмите В чём назначение каждой из программ?
2. Какие виды подпрограмм использованы в этих программах?
3. Где располагается подпрограмма в тексте основной программы?
4. Какую структуру имеет подпрограмма?
5. В чём разница между процедурой и функцией?
6. В каких случаях удобно использовать подпрограммы?

While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.