Вход:43 вывод: не в 8 классе ввод:14 лет вывод: в 8 классе на паскале расписать программу

Программа написана на языке Паскаль.
uses crt;
var
m, n,t, i : integer;
a : array [1..10] of integer;
max : array [1..10] of integer;
begin
clrscr;
m := -100;
write ('N ='); readln (n);
for i:= 1 to n do 
read (a[i]);
for i:= 1 to n do
if a[i]>=m then begin
max[1]:= a[i]; m:=max[1]; end;
 for i:= 1 to n do if t<>1 then
if a[i]=max[1] then begin a[i]:=0; t:= t+1; end; 
 m:= -100;
for i:= 1 to n do
if a[i]>=m then
begin
max[2]:= a[i]; m:=max[2]; 
end;
 t:= 0;
 for i:= 1 to n do
 if t<>1 then
if a[i]=max[2] then
begin a[i]:=0; t:= t+1; end; 
 m:= -100;
for i:= 1 to n do
if a[i]>=m then
begin max[3]:= a[i]; m:=max[3]; end; 
t:= 0; 
for i:= 1 to n do if t<>1 then
if a[i]=max[3] then begin
a[i]:=0; t:= t+1; end;
  m:= -100;
 writeln;
for i := 1 to 3 do
t:= max[i]+t;
writeln ('otvet ',t);
readkey;
end.

Т.к. язык программирования не указан, я выбрал на свое усмотрение - C++.
Тип переменных так же не указан, поэтому выбрал целочисленный тип данных
На сайте автоматически удаляются перенос строки, поэтому будет прикреплен скрин того, как должен выглядеть код

#include <stdlib.h>#include <stdio.h>#include <locale>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int x, y; printf("\n Введите X > "); scanf_s("%d", &x); if (x > 0)y = x*x; else y = 5 / x; printf("\n y=%d", y); system("pause");}