паскаль.

[SnS]

подскажите пожалуйста с задачей: Создать класс chis_1, заданный тремя целыми числами. выполнить следующее вычисление в виде метода класса: узнать равны ли суммы их цифр.

type chis_1=class
     x,y,z:integer;
     function sum(n:integer):integer;
     constructor create(x1,y1,z1:integer);
       //Destructor Destroy;
     end;
function chis_1.sum(n:integer):integer;
var s,m:integer;
begin
m:=abs(n);
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10
 end;
sum:=s
end;
            
            
constructor chis_1.create(x1,y1,z1:integer);
  begin
   if x1>0 then x:=x1;
   if y1>0 then y:=y1;
  if z1>0 then z:=z1;
  end;

а вот,что дальше делать не знаю(((((

[Stilet]

А дальше создать и вызвать:

with chis_1.create(1,2,3) do begin
 if (sum(x)=sum(y))and(sum(x)=sum(z)) then write('yes') else write('no');
 Destroy;
end;

Идея ясна?

[SnS]

спасибо огромное. у меня только один вопрос: этот код я пишу же уже в главной программе?

[Stilet]

Этот код ты пишешь там где нужно его писать )
Подумай - где он должен быть по логике вещей.