Тема: 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.

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