Program;
var
S, Sr, x, Z: real;
begin
S := 3;
Sr := 15;
x := 12;
Z := x+S+Sr/3;
writeln(Z);
end.
Может так?
