% CCC 2009
% J1: ISBN
%
% a straight forward calculation
%

var sum: int
var a,b,c: int

sum := 9*1+7*3+8*1+0*3+9*1+2*3+1*1+4*3+1*1+8*3

put "Digit 11? "..
get a
put "Digit 12? "..
get b
put "Digit 13? "..
get c
put "the 1-3-sum is ", sum+a*1+b*3+c*1