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.