Ну вот я кое что нашла проверила , все правильно вроде )
Вторую фотографию хорошо залей
1. В
2.А
3.С
4.Д
5.Д
6.Д
7.С
8.В
9.А
var
i:integer;
s,m:string;
begin
<em>readln(s);
</em>
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
<em>write(m);</em>
<span>end.</span>
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Ответ: 2
A - название массива
: array - определяем что это массив
[1...25] - промежуток индексов всех элементов
of integer - числа целого типа