Программу составить для решение . задать целое число и определить кратно ли оно 10 через turbo pascal

Program abc;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.

uses crt;
var c:char;
begin clrscr;
write('Введите символ ');
readln(c);
case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.

№1
1) Названием программы не может быть оператор end
2) Ошибок нет
3) Неверно написан оператор (нужно programm, вместо programma)
№2
1) Неправильно записан оператор mod. Неправильно написан знак присваивания (:=)
2) Неправильно записан оператор div. Неправильно написан знак присваивания (:=)
3) Недостаточно аргументов. Неправильно написан знак присваивания (:=)
4) Неправильно записан оператор div. Неправильно написан знак присваивания (:=). Лишний символ ^
№3
1) 1
2) Ошибка
3) 4
4) 5
5) 64
6) 10
7) 81
№4
Вообще, здесь должна быть ошибка, потому что неверно записан знак присваивания
Если представить, что там все правильно, тогда:
b=4680
a=4682