Pascal abc net.создайте пользовательский тип, который состоит из целочисленного двумерного массива размерностью 5*5.

Var
n,m:integer;
Y:array[0..4,0..4] of integer;

begin

for n:=0 to 4 do
for m:=0 to 4 do
readln(Y[n,m]);

end.

1)
Begin
var a,b:integer;
WriteLN('Введите градус: ');
ReadLN(a);
if a > 600 then begin
WriteLN('Пожарная ситуация')
end;
if b < 600 then begin
WriteLN('Рабочая ситуация')
end;
end.
2) 
Begin var a:integer;
WriteLN('Введите номер дня недели: ');
ReadLN(a);
if a = 1 then begin
WriteLN('Понедельник-Количество уроков: 6')
end;
if a = 2 then begin
WriteLN('Вторник-Количество уроков: 6')
end;
if a = 3 then begin
WriteLN('Среда-Количество уроков: 6')
end;
if a = 4 then begin
WriteLN('Четверг-Количество уроков: 6')
end;
if a = 5 then begin
WriteLN('Пятница-Количество уроков: 6')
end;
if a = 6 then begin
WriteLN('Суббота-Количество уроков: 6')
end;
end.

#include <iostream>
#include <fstream>
#include <string>
#include <vector>
#include <iterator>
using namespace std;  
int main()
{
     vector<string> str;
     string text;
     ifstream fin("a.txt");
     while (getline(fin, text)) {
         str.push_back(text);
     }
     fin.close();
     str.erase(str.begin() + 2);
     ofstream fout("b.txt");
     copy(str.begin(), str.end(), ostream_iterator<string>(fout, "\n"));
     fout.close();
     system("pause");
     return 0;
}