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.