дано трехзначное число. Вычислить сумму больших цифр этого числа.
На паскале. У меня есть одна мысль, но так и не могу понять, где ошибка.

program work;
var x,y,z,a:integer;
begin
writeln('введи трехзначное число');
readln(a);
x:=a div 100;
y:=a div 10 mod 100;
z:=a mod 10;
if (x>y) then if (y>z) then a:=x+y else a:=x+z else if (x>z) then a:=x+y else a:=y+z;
writeln(a);

end.


ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!

Ответ:

Объяснение: попробуйте вместо ввода трехзначного числа с последующей разбивкой его по разрядам ввести три разных числа а1,а2,а3 последовательно если принципиально что бы они отображались на экране добавьте еще переменную b например и пропечатайте ее b:=a1*100+a2*10+a3 writeln(b) а так в условных операторах у вас по моему ошибок нет