A10=3*10^2+6*10^1+1*10^0+1*10^( -1 ) +0*10^( -2 )+5*10^( -3 )
If then,тогда 1 оператор
Если if then begin <условие1>; <условие2>; end;
Тогда можно писать бесконечное кол-во операторов
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.