1. Линейный Integer;
2. Два блока с циклами;
3. Размер массива от 0 до 10 (11 элементов);
4. Обрабатываются все 11.
В общем всё на фотках на первой прога на второй блок схема, блок схема устаревшего образца как говорит (Эникей), хотя на ЕГЭ писал почти такую же и получил максимальный балл по заданию, если интересно я прикрепил ещё его вариант оформления цикла for только там блок схема для другой программы.
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Program zadanie;
Var x,y:real;
Begin
Writeln('Введите значения x и y');
Readln(x,y);
If x>y Then
begin
x:=x+y;
y:=x-y;
x:=x-y;
Writeln('x=',x);
Writeln('y=',y);
end;
End.