const al=7; ll=8; sl=30;
true = 1; false = 0;
scrrow=$d6; flags=$02b1;
xreg=$02b3; yreg=$02b4;
clrscrline=$e9ff;
putrowcol=$e50a;
var j, k, sum: integer ;
id: array [al] of char ;
line: array [ll] of char ;
sums: array [sl] of integer ;
function getsum;
var i, s: integer ;
begin
s := 0;
for i:= 0 to al - 1 do
if id[i] >= 65 then
s := s + id[i] - 64;
getsum:= s;
end ;
procedure reset;
var i: integer ;
begin
for i:=0 to al - 1 do
id[i] := 32;
j := 0;
end ;
procedure add(c);
begin
id[j] := c;
write (chr(c));
j := j + 1;
end ;
procedure printsum(s);
var i: integer;
begin
for i:= j to al - 1 do
write (" ");
write (" ");
writeln (s);
end ;
procedure addsum(s);
begin
sums[k] := s;
k := k + 1;
end ;
procedure input;
var i, row: integer ;
procedure top;
begin
row := memc [scrrow];
write (chr (19));
memc [xreg] := 0;
call (clrscrline);
write (chr (19));
end ;
procedure back;
begin
memc [xreg] := row;
memc [yreg] := 0;
memc [flags] := 0;
call (putrowcol);
end ;
begin
reset;
top;
read (line);
back;
i := 0;
while line[i] <> 13 do
begin
id[j] := line[i];
j := j + 1;
i := i + 1;
end ;
for i:= 0 to j - 1 do
write (chr(id[i]));
end ;
function used(s);
var i, r: integer ;
begin
r := false;
i := 0;
while (i < k) and (r = false) do
begin
if sums[i] = s then
r := true;
i := i + 1;
end ;
used := r;
end ;
begin
writeln (chr(147));
k := 0;
(* const *)
reset;
add("c");
add("o");
add("n");
add("s");
add("t");
sum := getsum;
printsum(sum);
addsum(sum);
(* var *)
reset;
add("v");
add("a");
add("r");
sum := getsum;
printsum(sum);
addsum(sum);
(* begin *)
reset;
add("b");
add("e");
add("g");
add("i");
add("n");
sum := getsum;
printsum(sum);
addsum(sum);
(* end *)
reset;
add("e");
add("n");
add("d");
sum := getsum;
printsum(sum);
addsum(sum);
(* if *)
reset;
add("i");
add("f");
sum := getsum;
printsum(sum);
addsum(sum);
(* then *)
reset;
add("t");
add("h");
add("e");
add("n");
sum := getsum;
printsum(sum);
addsum(sum);
(* else *)
reset;
add("e");
add("l");
add("s");
add("e");
sum := getsum;
printsum(sum);
addsum(sum);
(* while *)
reset;
add("w");
add("h");
add("i");
add("l");
add("e");
sum := getsum;
printsum(sum);
addsum(sum);
(* do *)
reset;
add("d");
add("o");
sum := getsum;
printsum(sum);
addsum(sum);
(* repeat *)
reset;
add("r");
add("e");
add("p");
add("e");
add("a");
add("t");
sum := getsum;
printsum(sum);
addsum(sum);
(* until *)
reset;
add("u");
add("n");
add("t");
add("i");
add("l");
sum := getsum;
printsum(sum);
addsum(sum);
(* write *)
reset;
add("w");
add("r");
add("i");
add("t");
add("e");
sum := getsum;
printsum(sum);
addsum(sum);
(* eingabe *)
while true do
begin
input;
sum := getsum;
printsum(sum);
if used(sum) = false then
begin
writeln ("ok");
addsum(sum);
end
else
writeln ("belegt");
end ;
end .
