не могу исправить ошибку на паскаль программа вот: var
v0,v,s,real:
begin
readen(v0)
readen(a)
readen(v)
s:=(sqr(v0)-sqr(v))/2*a
writhen(s)
end

var

v0,v,s,a: real;      //добавили переменную a          

begin

readln(v0);       //readen → readln

readln(a);

readln(v);

s:=(sqr(v0)-sqr(v))/2*a;

writeln(s);           //writhen → writeln

end.