Надо написать програму в паскале класс
Задача 1
Ввести с клавиатуры а1, b1, a2, b2.
Найти s=√(a2−a 1)2+(b2−b1)2
Задача 2
Ввести с клавиатуры r, t, y.
Найти N=√z (z−r )( z−t)( z− y )
r+t+ y
, если z=r+t+ y/2

1)
var
    a1, a2, a3, max: integer;
begin
    write ('Введите три числа: ');
    readln (a1, a2, a3);
    if a1 >= a2 then
        max := a1
    else
        max := a2;
    if a3 > max then
        max := a3;
    writeln ('Максимальное из них: ', max);
readln
end.

2)
var
  n: integer;
 
begin
  repeat
    writeln('Введите номер месяца [1..12]');
    readln(n);
  until n in [1..12];
  case n of
    1: writeln('Январь');
    2: writeln('Февраль');
    3: writeln('Март');
    4: writeln('Апрель');
    5: writeln('Май');
    6: writeln('Июнь');
    7: writeln('Июль');
    8: writeln('Август');
    9: writeln('Сентябрь');
    10: writeln('Октябрь');
    11: writeln('Ноябрь');
    12: writeln('Декабрь');
  end;
end.

#include <iostream>

#include <vector>

using namespace std;

void solve(vector<vector<int>> &a){

   int sum = 0;

   for(int i = 0; i < a.size(); i++)

       for(int j = 0; j < a[i].size(); j++)

           if(a[i][j] % 2 == 1 && a[i][j] < 0)

               sum += -a[i][j];

   cout << sum;

}

signed main() {

   const int n = 7;

   vector<vector<int>> a(n,vector<int> (n));

   for(int i = 0; i < n; i++)

       for(int j = 0; j < n; j++)

           cin >> a[i][j];

   solve(a);

}