Найти все трех значные числа где сумма первого и второго равна третьей

program zz1;

var i, s, k, p:integer; / / задаем переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл в котором переберем все трехзначные числа

begin

p:=i mod 10; / / находим третью цифру трехзначного числа

k:=i div 100; / / находим первую цифру трехзначного числа

s: = (i div 10) mod 10; / / находим вторую цифру трехзначного числа

if (s + k = p) / / проверяем условие, если сумма первой и второй цифр равна третьей, то

then writeln (' найденное число = ', i); / / выводим ответ

end;

end.