Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре (программа Паскаль)

var
    num:integer;
    a,b,c,s:byte;
begin
    for num:=100 to 999 do begin
        a := num div 100; b := num div 10 mod 10; c := num mod 10;
        s := a+b+c;
        if ((s = 2*a) or (s = 2*b) or (s = 2*c)) then
            writeln(num);
    end;
    readln;
end.