Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и последней цифры заданного четырёхзначного числа — Pascal(Паскаль)

var
m,n,x,y,z:integer;
begin
  writeln('введите число');
  readln(z);
  writeln('введите делители');
  readln(m,n);
  x:=z mod 10;
  y:=z div 1000;
    if ((x+y) mod n = 0 ) and ((x+y) mod m = 0 ) then
     writeln('Являются')
      else writeln('Нет');
end.