Дана последовательность A из 12 элементов типа Char. Сформировать последовательность В из 12 элементов типа Boolean следующим образом: если элемент ai - буква . то элементу bi присвоить значение True, если же ai - цифра, то bi присвоить значение False.
var
a: array [1..12] of char;
b: array [1..12] of boolean;
i: integer;
begin
for i:=0 to 12 do read(a[i]);
for i:=0 to 12 do
begin
if a[i] in ['0'..'9'] then
b[i] := False
else
b[i] := True
end;
for i:=0 to 12 do writeln(b[i]);
end.