Program 1; var a,b,c: integer; begin a := 4; b := 2; c := 6; writeln(a+b+c); writeln(a*2+b*2+c*2); end.