Решите задачу по информатике

Var
    s : String;
    i : Integer;
begin
    Writeln('Введите строку:');
    Readln(s);

    i:= 0;

    while pos(')', s) <> 0 do
    begin
        i := i + pos(')', s) - pos('(', s) + 1;
       delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
    end;

    Writeln(s);
    Writeln(i);
    Readln;
end.

2)

var 
    s    : String; 
    i, e : Integer; 
    flag : Boolean;  
begin
    Writeln('Введите строку:');
    Readln(s);

    e := 0;
    flag := False;

    for i := 1 to Length(s) do
    begin
        if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then  flag := True;

        if flag then Write(s[i]);

        if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
        begin
            flag := False;
            inc(e);
            Writeln;
        end;
    end;

    Writeln(e);
    Readln;
end.

А на каком языке то хоть?

вот программа на С++:

#include <iostream>
using namespace std;
int main()
{
setlocale(0, "Russian");
int a, b, c;
cout << "Введите 3 целых числа: " << endl;
cin >> a >> b >> c;   
if(a>b && a>c)
{ 
cout << "Максимальное число = " << a << endl;
}     
if(b>a && b>c)
{       
cout << "Максимальное число = " << b << endl;
}
 if(c>b && c>a)
{       
cout << "Максимальное число = " << c << endl;
}
cin >> a;   
return 0;
}