Запишите на паскале следующее арифметическое выражение: A= пr2

var A,r,pi:real; begin readln(r); pi:=22/7; A:=pi*sqr(r); writeln (A); end.