Играют двое. Первый участник игры называет произвольное целое положи­тельное число, не превышающее десяти, то есть он может назвать число десять и всякое м

q,a,z:integer;
t: array [1..10] of integer;
begin
for a:=1 to 10 do
begin
write('введите число ', a);
t[a]:=random(175)+182;
writeln(t[a]:4);
end;
a:=t[1]; z:=1;
for a:=2 to 10 do
begin
if t[a]>q then
begin
q:=t[a];
z:=a;
end;
end;
write('самое большое число под номером',z,'это число',q);
end.

Кбайт, если на один символ отводится 2 байта.

ВХОДНЫЕ ДАННЫЕ
Одно целое положительное число, не превышающее 1000. Одно целое положительное число, не превышающее 1000. ВЫХОДНЫЕ ДАННЫЕ Выведите то же самое число. На языке С

"21 год" "22 года" "25 лет"