pascal 这程序咋编

来源：百度知道编辑：UC知道时间：2024/06/15 11:48:18

给获奖选手分一堆西瓜，金牌选手分得该堆西瓜的一半再加半个，银牌选手分得余下西瓜的一半再加半个，铜牌选手得余下的西瓜，问原先该堆西瓜共多少个?
快！！！
是没列！
急需！！！

你是输入铜牌选手得的西瓜
输出共多少个吧
program pyy;
var a:integer;
begin
readln(a);
writeln(((a+0.5)*2+0.5)*2)；
readln；
end.

program P-1;
var a:integer;
begin
readln(a);
writeln(((a+0.5)*2+0.5)*2);
readln；
end.

var
n:integer;
begin
readln(n);
writeln(((n+0.5)*2+0.5)*2);
end.

晕，答案应该很多呀。条件没有完全列出来吧？铜牌的得了多少个西瓜？