begin SF; writeln('The ',What1,' is already ',What2,'.') end;\r
\r
{******************* END OF PARSER AND MISC. PROCEDURES *********************}\r
begin SF; writeln('The ',What1,' is already ',What2,'.') end;\r
\r
{******************* END OF PARSER AND MISC. PROCEDURES *********************}\r