Please write something. If it works, then it can be adjusted. I don’t know how to decide here. Nothing is done.
Begin
writeln(' somehow it works');
read to read;
and end.