Помогите пожалуста оформить програму в ПАСКАЛЕ кому не сложно записать пример я смогу а вот оформлять не очень умею

const k=100.5;
var m,y:real;
begin
Writeln('Ведите Y');
write(Y =,' ');
readln(y);
m:={твой пример};
writeln(m);
readln;
end.