Ответ:

var y:integer;

begin

 writeln('Введите число');

 readln(y);

 if y mod 13 = 0 then writeln('Число кратно')

 else writeln('Число не кратно');

end.

Объяснение:

var

y:integer;

begin

readln(y);

if y mod 13 = 0

then Writeln('Да')

else Writeln('Нет');

end.