begin
writeln(7*5+2*2*2+15/2)
end.

У тебя неправильный формат ввода, если тебе надо найти 7*5+2*2*2+15/2то вот рабочая программаprogram qwe; //не обезательноvar a : Real;begina := (7*5+2*2*2+15/2);write (a);end.