Кто шарит в информатике Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме. При наборе программы учитывайте примечания

#include <iostream>#include <algorithm>#include <functional>#include <iterator>#include <vector>
template< typename _T1, typename _T2 = int >void print(_T1 & data){    std::copy(data.begin(), data.end(), std::ostream_iterator< _T2 >(std::cout, " "));    std::cout << std::endl;}
template< typename T>void replace_sign(T begin, T end){    for (T iter = begin; iter != end; iter++)    {        if (*iter <= 0)            *iter = 0;        else            *iter = 1;    }}
int main(void){    std::vector< int > data = {-2, 2, 0, 9 -5, 8, 0, 10, -8};    print(data);    replace_sign(data.begin(), data.end());    print(data);
    return 0;}

Yaaas, я дождался C#, надеюсь что еще нужно

Console.WriteLine("Введите первое число: ");
int a = Convert.ToInt32(Console.ReadLine()); //первое число, спс, кэп
Console.WriteLine("Введите второе число: ");
int b = Convert.ToInt32(Console.ReadLine()); // второе число
Console.WriteLine("Введите третье число: ");
int c = Convert.ToInt32(Console.ReadLine()); // третье число
Console.WriteLine("Введите четвертое число: ");
int d = Convert.ToInt32(Console.ReadLine()); // четвертое число

int [] mass = new int {a, b, c, d}; // заносим числа в массив

for (int i = 0; i < mass.Length; i++) //пробегаем по массиву
{
    int module = Math.Abs(mass[i]); // находим модуль
    int koren = Math.Sqrt(mass[i]); // находим корень
    int stepen = Math.Pow(mass[i], 4); // находим 4 степень
    Console.WriteLine( Math.Round(mass[i], 2) + " " + Math.Roubnd(module, 2) +  " " + Math.Round(koren, 2) +  " " + Math.Round(stepen, 2) + "\n"); // выводим таблицу. \n - перенос на следующую строку
}

Если что, то не проверял запускается она или нет, лень VS включать. Но по идее все так должно быть.
Если что - пиши.