№1. Составить программу нахождения длины окружности и площади круга по…

var r,l,s: real; beginwrite ('R='); read (r); s: =pi*sqr (r); l: =2*pi*r; write ('S=',s,'; L=',l); end. var a,p: integer; beginread (a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write (p); end. var a,b,c,min: integer; beginwriteln ('Введи 3 числа'); readln (a,b,c); min: =a; if b