Тема:ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.)

Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13.

Буду очень благодарна!

uses crt;

var a:integer;

begin

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

readln (a) ;

if (a mod 13) = 0 then write ('Число делится без остатка на 13') else write ('Число не делится без остатка на 13') ;

writeln;

if (a mod 10) = 7 then write ('Число оканчивается на цифру 7') else write ('Число не оканчивается на цифру 7') ;

end.

Если нужно выполнять программу из-под программной оболочки, удали первую строку.