Question

Определите площадь кольца, если известен радиус внешней и внутренней окружности.
Никак не могу понять в чём моя ошибка.. Помогите , пожалуйста .)

Answer 1

Попробуй замени "Read" на "Readln".
var
k,p,r,s:real;
begin
readln(r,k,p);
s:=(2*p*k*k)-(2*p*r*r);
writeln(s);
end.
Вроде работает...