Anonymous

program Noname2;
var sk, a,b,c, sum, san, x, dalm, liek :integer;
//------------------------------------------------------------------------------
procedure dalyba (sk, ka:integer;var  dalm, liek :integer);
var i :integer;
begin
  dalm := 0;
  liek := 0;
  if (sk mod ka = 0) then
  begin
    dalm := ka;
    liek := 0;
  end; {
  else
  begin
    for i:= 1 to ka do
    begin
      if sk mod i = 0 then
    end;
        }
end;
//------------------------------------------------------------------------------
begin
  WriteLn('ivesk skaiciu!');
  Readln(sk);
  Sum := 0;
  san := 0;
  x := sk;
  a := x mod 10;
  x := x div 10;
  b := x mod 10;
  c := x div 10;
  
  if (a<>0)or(b<>0)or(c<>0) then begin
                              san := a*b*c;
                              WriteLn('Nebuvo 0, sandauga lygi = ', san:5);
                              dalyba(sk,san, dalm, liek);
                              WriteLn(sk,' dalinasi is ', dalm:5,' su liekana ', liek);
                              end
  else begin
      sum := a+b+c;
      WriteLn('Buvo 0, suma lygi = ', sum:5);
      end;
      WriteLn(sk,' dalinasi is ', dalm:5,' su liekana ', liek);
      ReadLn;
end.