Дано 3 значное число найти сумму 1 и посл. числа. Паскаль

Question

var a:integer; 
b,c,d,z,e,f,o:longint; 
begin 
write('Vvedite chislo a'); 
readln(a); 
b:=a div 100; 
c:=a mod 100; 
e:=c div 10; 
d:=c mod 10; 
f:=d div 10; 
o:=d mod 10; 
z:=((a+1)*100+b*10+(c+1)); 
writeln('otvet=',z); 
end. 
Выдаёт ошибку при компиляции почему?

Извиняюсь нужно увел первую цифру на один и последнюю

Муродхон Латифи · Accepted Answer

какую именно ошибку?? ? это раз. Когда что то делишь то ответ точно уже не будет подходить к типам integer и longint видимо проблема в этом

Ольга Ковалевская · Answer

С типами данных у тебя все нормально, потому что деление целочисленное и остаток тоже целый. 
Тебе надо найти сумму первой и последней цифры в трехзначном числе? А почему так сложно? 
Попробуй проще: 
var a:integer; 
b,c,z:integer; 
begin 
write('Vvedite chislo a'); 
readln(a); 
b:=a div 100; 
c:=a mod 10; 
z:=b + c; 
writeln('otvet=',z); 
end.

Дмитрий Жарков · Answer

Много лишнего. И задание некорректно сформулировано: найти сумму первой и последней ЦИФРЫ числа. 
… 
writeln('Result: ', (a div 100) + (a mod 100)); 
…