Подсчитайте сумму всех трёхзначных чисел, у которых первая цифра 4, а последняя 9

program zz1;

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

begin

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

begin

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

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

if (p = 9) and (k = 4) / / проверяем условие, если первая цифра равна 4, а последняя цифра равна 9, то добавляем число к сумме

then s:=s + i;

end;

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

end.