Вывести на экран двузначные числа и их количество, у которых при умножении на 2 сумма цифр увеличивается на 5. Через цикл for нужно решить

program proga;var i, m, k, s1, s2:integer;beginfor i:=10 to 99 do begin m:=i;s1:= m mod 10 + m div 10;k:=i*2;s2:= k mod 10 + k div 10;if (s2 - s1 = 5) then write(i, ', '); end;end.

так красивее)

program proga;var i, m, k, s1, s2:integer;beginfor i:=10 to 99 do begin m:=i;s1:= m mod 10 + m div 10;k:=i*2;s2:= k mod 10 + k div 10;if (s2 - s1 = 5) then write(i, ', '); end;end.