найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)

Program Summa;

var

n,

l,

a: integer;

m: integer;

b: integer;

k: integer;

begin

Readln (n);

Readln (l);

a:=n div 10;

m:=l div 10;

b:=n mod 10;

k:=l mod 10;

if (a+b) mod 7=0 then write (n,' ');

if (m+k) mod 7=0 then write (n+l);

End.

Попробуй