Напишите программу в Паскале пожалуйста, срочно, очень надо. Вот во вложении сама задача.

#include <string>
using namespace std;

struct student // структура студент
{
int id; // поля
string surname;
string subject;
int grade;
};

int main()
{
student array[3]; // массив типа student, размер количество студентов
setlocale(0, "Rus");


for ( int i = 0; i < 3; i++) // вносим данные в массив
{
cout << "Введите номер студента ";
cin >> array[i].id;
cout << "Введите фамилию студента "; // Вводить фамилии на английском
cin >> array[i].surname;
cout << "Введите предмет ";
cin >> array[i].subject;
cout << "Введите оценку ";
cin >> array[i].grade;
}
cout << endl;
string str; // строка фамилии которую ищем
cout << "Введите фамилию студента для поиска ";
cin >> str;
cout << endl;

for ( int i = 0; i < 3; i++)
if(str == array[i].surname)
cout << "Балл студента " << array[i].surname << " равен " << array[i].grade << endl;

system("Pause");
}

Кто то может помочь , перевести на СИ ?

серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)

2.Условный оператор(ветвление)

Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?

3.Циклы

Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.

4.Одномерные массивы

Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].

5.Двумерные массивы

Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.

пажайлуста очень нада ЗАРАНИЕ СПАСИБО