procedure main();writes(&ascii--"procedumainwrts() ;&-\\\"");end