помогите доделать прогу

[kitty2010]

я решил написать прогу ,в которой при умножении двух трёхзначных чисел друг на друга и ещё на 3 будет число А ,а при умножении 1000 на одно из чисел(x) и +другое(y) будет число B.Но с Repeat не совсем умею работать.да и мой паскаль ругается на for (97 error чтоли).пожалуйста помогите доделать.


Program kitty;
var
x:array[100..999] of integer;
y:array[100..999] of integer;
A,B:longint;
begin
for x:=100 to 999 do
for y:=100 to 999 do
A:=3*x*y
B:=1000*x+y
if A=B
then
Write ('HaugeHO');
Read('A=x ,B=y ');
End.

[ОДИНОЧЕСТВО В СЕТИ]

for x:=100 to 999 do
for y:=100 to 999 do begin
A:=3*x*y
B:=1000*x+y
if A=B
then
Write ('HaugeHO');end;
readln;
End.

[kitty2010]

спасибо ) но у меня чёто for ругается в строке
for x:=100 to 999 do по ошибке 97 - можешь обьяснить что нетак ?

[ОДИНОЧЕСТВО В СЕТИ]

x и у обьяви как x,y:integer; а не как у тебя

x:array[100..999] of integer;
y:array[100..999] of integer;

Вот так надо

Program kitty;
var
x: integer;
y:integer;
A,B:longint;
begin
for x:=100 to 999 do
for y:=100 to 999 do begin
A:=3*x*y;
B:=1000*x+y;
if A=B
then
Writeln ('HaugeHO: x=',x:4,' y=',y:4);end;
readln;
End.

[kitty2010]

но если я обьявлю их без значений от 100 до 999 то он будет всё перебирать ))) 97 ерр ругается .вроде сделал как ты написал а он...

[ОДИНОЧЕСТВО В СЕТИ]

написала

У меня все работает

x=167 y=334

[kitty2010]

ну спс за ответ .токо чёто у ми с паскалем бредня...вроде к своему телу твой ключ доба но спс сё рано

[kitty2010]

всё нармульки.я твой отредактированный взял и у меня паскаль выдал около 20значений,,Хм,Но из них только то которое ты написал(а) подходит.имхо прога что то путанула ?

[ОДИНОЧЕСТВО В СЕТИ]

Имхо это ты что то не так отредактировал

[kitty2010]

ИМХО Наверно .буду думать ....