Программа на Pascal

[InFlesh]

Помогите написать программу которая находит все четырехзначные числа у которых сумму крайних цифр равна суме средних, а само число делится на 6 и 27.
вот что получается у меня

var x,x1,x4,x5,x2,x3,x6:integer;
begin
x5:=6;
x6:=27;
for x:= 1000 to 9999 do begin
x1:=x mod 10;
x2:= x mod 100 div 10 ;
x3:= x div 100 mod 10;
x4:= x div 10   ;
if (x1+x4=x3+x4) and (x mod x5) and(x mod x6) then
writeln(x)
end;
end.

[s-andriano]

В чем проблема - мы должны догадываться самостоятельно?

Могу предположить, что дело в том, что Паскаль - не С и тщательнее проверяет соответствие типов - это раз. А два - появится после того, как будет исправлена первая ошибка.

[Serge_Bliznykov]

x4:= x div 10   ;

чтобы получить первую цифру 4-хзначного числа, нужно писать так:

x4 := x div 1000;

а чтобы проверить, что число делится без остатка (кратно) другом числу, нужно сравнивать остаток с нулём:

if (x1+x4=x3+x4) and (x mod x5 = 0) and(x mod x6 = 0) then

[Mad_Cat]

все четырехзначные числа у которых сумму крайних цифр равна суме средних, а само число делится на 6 и 27.

var a,b,c,d:byte;
 x:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do begin
x:=a*1000+b*100+c*10+d;
if (a+d=b+c)
and ( x mod 6=0)
and ( x mod 27=0)
then writeln(x);
end;
end.

1188
1458
1728
3186
3456
3726
5184
5454
5724
7182
7452
7722
9180
9450
9720