Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы

Какой ЯП?
Pascal?
var a:
array[1..5] of integer;    
i:integer;
begin
writeln('Введите 5 чисел');
for i:=1 to 5 do
readln(a[i]);
 for i:=1 to 5 do
 if a[i]<0
then writeln(sqr(a[i]));
readln;
end.

Program square_negative;
var
  a: array[1..5] of integer;
  i: integer;
begin
  writeln('Ввод массива: ');
  for i := 1 to 5 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] < 0 then
      a[i] := a[i] * a[i];
  end;
  writeln('Вывод изменённого массива: ');
  for i := 1 to 5 do
    write(a[i], ' ');
end.

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
float gip, katet1,katet2,radius;
cout << "Введите величину гипотенузы ( см ): ";
cin >> gip;cout << "Введите величину известного катета ( см ) : ";
cin >> katet1;
katet2 = sqrt((float(gip*gip - katet1 * katet1)));
radius = (katet1 + katet2 - gip) / 2;
cout << "Второй катет равен: " << katet2 << " см \nРадиус вписанной
окружности: " << radius << endl;
return 0;
}
использовал формулу для радиуса radius = (katet1+katet2-gip)/2
Для нахождения катетов katet2 = корень квадратный из gip^2-katet1^2
Писал в visual c++, советую там и проверять. Чтобы с синтаксисом проблем не возникло