Pascal Procedura

program Bevardë18;
    var x, i, sum, san : integer;
procedure Suma(x : integer; var ats : integer); // skaiciuoja ivestu skaiciu suma
begin
    ats := ats + x;
end;
procedure Sandauga(x : integer; var ats : integer); // skaiciuoja ivestu skaitmenu prespaskutini skaitmeni (desimciu)
    var b : integer;
begin
    b := x div 10 mod 10;
    ats := ats * b;
end;
begin
  WriteLn('Iveskite trys skaicius: ');
  sum := 0;  san := 1;
  for i := 1 to 3 do
  begin
    Read(x);
    Suma(x, sum);
    Sandauga(x, san);
  end;
  WriteLn('Suma lygu: ', sum);
  WriteLn('Sandauga priespaskutiniu skaiciu lygi: ', san);
  Readln;
  Readln;
end.