Program A;
var b,c:real;
begin
readln(b);
if b>=0 then
c:=23*b
else
c:=b*b;
writeln('c = ', c:0:3);
end.
Правильный код.
Правда у вас есть переменная d, её нет в коде и она не инициализируется, так что я логически заменил её на b
