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

[Evgo]

составить программу решения задачи с использованием подпрограмм.
Написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется условие ab-cd=a+b+c+d.

[Evgo]

Программа без подпрограмм выглядит:
Program zadacha4_2;
uses crt;
Var
a:array[1..4] of integer;
b:array [1..9000] of integer;
i,j,k,x:integer;
begin
clrscr;
j:=0;
for i:=1000 to 9999 do
begin
j:=j+1;
b[j]:=i;
end;
for i:=1 to 9999 do
begin
j:=0;
x:=b[i];
repeat
j:=j+1;
a[j]:=x mod 10;
x:= x div 10;
until (x=0);
if (a[1]*10+a[2]-a[3]*10-a[4]=a[1]+a[2]+a[3]+a[4]) then
begin
for k:=1 to 4 do
write(a[k]); write(' ');
end;
end;
end.
Где можно вставить подпрограммы?

[__STDC__]

как-нибудь так

function count(a,b,c,d:integer):boolean;
begin
	count := (a * b - c * d) = (a + b + c + d);
end;

procedure separate(x:integer; var a,b,c,d:integer);
begin
	a := x div 1000;
	b := x div 100 mod 10;
	c := x div 10 mod 10;
	d := x mod 10;
end;

var
	x:integer;
	a,b,c,d:integer;
begin
	for x:=1000 to 9999 do begin
		separate(x,a,b,c,d);
		if (count(a,b,c,d)) then
			writeln(x);
	end;
	readln;
end.

[Evgo]

По условию a*10+b-c*10-d=a+b+c+d, а не a*b-c*d=a+b+c+d. После этого исправления программа показывает правильные числа. Спасибо за помощь.

[__STDC__]

Сообщение от Evgo

По условию a*10+b-c*10-d=a+b+c+d, а не a*b-c*d=a+b+c+d. После этого исправления программа показывает правильные числа. Спасибо за помощь.

Написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется условие ab-cd=a+b+c+d.

это то, что вы написали. Она и так показывает правильные числа для условия ab-cd=a+b+c+d.

[Evgo]

Сообщение от __STDC__

это то, что вы написали. Она и так показывает правильные числа для условия ab-cd=a+b+c+d.

В кодеб который вы написали ab и cd- произведение, на самом деле это числа состоящие из двух цифр.

[__STDC__]

Сообщение от Evgo

В кодеб который вы написали ab и cd- произведение, на самом деле это числа состоящие из двух цифр.

ну а я угадать что ли должен был? =) хоть бы оговорили как-то... так произведение иногда записывают..

***
в общем не суть. главное - работает

[Evgo]

Это верно, а мне пока нужно другое задание делать.

[Nightt]

помогите пожалйста

Дан двумерный массив, содержащий N*N элементов. Написать подпрограмму, выполняющую замену нулями всех элементов, расположенных на главной диагонали матриц.

[__STDC__]

вы издеваетесь??

for i:=1 to n do
   x[i,i] := 0;