var
y, a, b: real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
y := 3 * (a + b) / 2;
WriteLn('y = ', y);
End.
var
y, a, b: real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
y := 3 * (a + b) / 2;
WriteLn('y = ', y);
End.