Suma sutelor si unitatilor:
var a,b,c,i,h:integer;
begin
Write('Numar de 3 cifre: ');
read(i);
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
h:=a+c;
writeln('Cifra sutelor: ',a,', Cifra zecimilor: ',b,', Cifra unitatilor: ',c);
writeln('Suma sutelor si unitatilor=',h);
end.