Возможно, стоит какой-то плагин (в оригинальной игре если, не DST). Отключите его.
program z1;
var a,m,n:integer;
begin
writeln ('введите трехзначное число ');readln(a);
writeln ('введите число m ');readln(m);
if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны');
if ((a mod 10)=3)or(((a div 10)mod 10)=3)or((a div 10)=3) then n:=n+1;
writeln('количество чисел содержащих число 3',n);end.
В десятичной 97 = 1100001 в двоичной
Program prim_a;
var
m, n, k: integer;
begin
writeln('введите значение переменных m, n, k: ');
read(m, n, k);
writeln(m + n + k)
end.