[Светлана96]

Дано трехзначное число. Найдите сумму его цифр.не получается вот решение

Код:

Program Integer11;
var a,r,x,z,y,l:integer;
begin
readln(a);
x:=a div 100;
y:=a mod 10;
z:=(a div 10)mod 10;
r:=x+y+z;
Writeln('summa=',r)
end.