Question

Правильно или нет, подскажите как
program ex;
var a,b,c:integer;
begin
readln (a);
b:=a mod 10;
c:=a div 100;
a:=b+c;
writeln (a);
end.