Информатика 10 класс

Какой язык? Pascal, C++, Python?

uses crt;
const
n=20;
var
s1,s2,i,k: integer;
sr1,sr2: real;
a: array[1..n] of integer;
b: array[1..n] of integer;
begin
for i:=1 to n do begin
repeat
write('Введите оценку ',i,' ученика 1 класса: ');
read(a[i]);
until a[i]>0;
s1:=s1+a[i];
end;
for k:=1 to n do begin
repeat
write('Введите оценку ',k,' ученика 2 класса: ');
read(b[k]);
until b[k]>0;
s2:=s2+b[k];
end;
writeln;
writeln('Средняя оценка по первому классу: ',s1/n);
writeln('Средняя оценка по второму классу: ',s2/n);
end.