Хотя б одну из двух, БРАТЦЫ:)

ПАСКАЛЬ

1) Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 - вещественные, R1 > R2). С ее площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = pi*R^2. В качестве значения pi использовать 3.14.

2)л. Описать функцию Fact(N) вещественного типа, вычисляющую значение факториала N!=1*2*...*N* (N>0 — параметр целого типа). С этой функции найти факториалы пяти данных целых чисел.

Написал на C# но в принципе код  очень простой поэтому сможешь переписать на любой язык)

Console.WriteLine("Введите А");           
int a = Convert.ToInt16(Console.ReadLine());           
if (a >0)
{ Console.WriteLine("---------------------------");
 Console.WriteLine("Число "+a+" положительное"); }           
 if (a < 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Число " + a + " отрицательное"); }           
 if (a == 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Вы ввели 0"); }                          
  Console.ReadLine();

Program Table;
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var  // объявляем локальные переменные для программы
    a , b, h : Real; //указывает дробный тип числа

function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
    calculate_f := 1/2*sin(x/4+1) ;   //записываем результат вычисления в функцию
end;

Begin
    a := -0.99; //определяем
    b :=  50.0;  //вводные
    h := 0.1; //значения

    while a < b do begin //пока "a" меньше "b"
        writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
        a := a + h; //прибавляем шаг "h"
    end;
end.

Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.