var s1, s2, s3, s12, s123: string; a1, a2, a3, sum, tmp, errCode: integer; begin a1 := 4; {первый набор} a2 := 9; a3 := 1; sum := a1; Str(a1, s1); Str(a2, s2); Str(a3, s3); s12 := s1 + s2; Val(s12, tmp, errCode); sum := sum + tmp; s123 := s1 + s2 + s3; Val(s123, tmp, errCode); sum := sum + tmp; writeln(sum); a1 := 4; {второй набор} a2 := 20; a3 := 1; sum := a1; Str(a1, s1); Str(a2, s2); Str(a3, s3); s12 := s1 + s2; Val(s12, tmp, errCode); sum := sum + tmp; s123 := s1 + s2 + s3; Val(s123, tmp, errCode); sum := sum + tmp; writeln(sum); end. |