Мемы создают здесь

Мем: "begin var r := ReadReal('Введите радиус круга: '); var S := Pi*r*r Println(' ',S); end."