Не понятно,что. Ты написал(а),вот 2).Что имеется ввиду?
Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.
Один символ 1 байт
на одной странице 30*70=2100 символов
84000:(2100*8)=5
Учитывая, что там какой-то чел скинул программу на питоне третьем, то я тоже скину третьем питоне, только гораздо короче
n = int(input())
arr = [*map(int, input().split())]
for i in arr:
if i > 0:
print(i, end=' ')