// Исправьте ошибку компиляции. Не всегда надо "верить" тексту ошибки
var k: real;
begin
k := 2,5;
writeln(r);
end.