Помогите решить две задачки в Паскале, с полным решением

Question

1.Вычислить длину окружности и площадь круга одного и того же заданного радиуса R? 
2.Даны два действительных числа Х и У. Вычислить их сумму, разность, произведение и частное

Олег Молчанов · Accepted Answer

1) 
 
<img src="//otvet.imgsmail.ru/download/b22490a3d2d7a0827602bedf8716f5e7_i-300.jpg" > 
 
2) 
 
Uses crt; 
 Var 
 x,y: Real; 
 BEGIN 
 Clrscr; 
 Writeln('Введите X: '); Readln(x); 
 Writeln('Введите Y: '); Readln(y); 
 Writeln('Сумма этих чисел: ',x+y:2:2); 
 Writeln('Разность этих чисел: ',x-y:2:2); 
 Writeln('Произведение этих чисел: ',x*y:2:2); 
 Writeln('Частное этих чисел: ',x/y:2:2); 
 Readln 
 END.