найти сумму двузначных положительных чисел сумма цифр которых кратно 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.

Попробуй