var
y, a, b: real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
y := 3 * (a + b) / 2;
WriteLn('y = ', y);
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
y, a, b: real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
y := 3 * (a + b) / 2;
WriteLn('y = ', y);
End.