Составьте программу нахождения S круга (на языке Паскаля)
Program e;varpi,r,s,s1:real;beginpi := 3.14;r := 2;{радиус}s1 := (pi * r);s:= s1*s1;writeln(s);end.