Mine

program gaidziai;
var	pomidorai: array [1..70] of integer;
	i, j, n, p, d: integer;
begin
	writeln('ivesk pomidoru skaiciu, prinokusio pomidoro numeri ir dienu skaiciu');
	readln(n, p, d);
	for i := 1 to n do
		if i = p then pomidorai[i] := 1
		else pomidorai[i] := 0;
	for i := d downto 1 do
		begin
			j := j + 1;
			pomidorai[p+j] := 1;
			pomidorai[p-1] := 1;
		end;
	j := 0;
	for i := 1 to n do
		if pomidorai[i] := 0 then j := j + 1;
	writeln(j);
	readln;
end.