Блок схему алгоритма на паскаль к этой программе! ! Var
a:array[1..10] of integer;
max,min,i:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,'-ый элемент массива ');
Readln(a[i]);
if i=1 then Begin
min:=a[i];
max:=a[i];
End;
if a[i]>max then max:=a[i];
if a[i] End;
Write('Разность наибольшего и наименьшего равна ',max-min);
End.

Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале

Луна вращается вокруг Земли по орбите, большая полуось которой равна 383000 км (эллиптичность 0,055). Плоскость лунной орбиты наклонена к плоскости эклиптики под углом 5°09. Период вращения равен 27 суток 7 часов 43 минуты. Это сидерический или звездный период. Период синодический – период смены лунных фаз – равен 29 суток 12 часов 44 минуты. Период вращения Луны вокруг своей оси равен сидерическому периоду. Поскольку время одного оборота Луны вокруг Земли точно равно времени одного оборота ее вокруг оси, Луна всегда обращена к Земле одной и той же стороной. Луна – самый заметный объект на небе после Солнца. Максимальная звездная величина равна – 12,7m. Масса спутника Земли составляет 7,3476*1022 кг (в 81,3 раз меньше массы Земли), средняя плотность p = 3,35 г/см3, экваториальный радиус – 1 737 км. Стягивание с полюсов почти не имеется. Ускорение свободного падения на поверхности составляет g = 1,63 м/с2. Тяготение Луны не смогло удержать ее атмосферу, если она когда-то и была. Внутреннее строение Плотность Луны сравнима с плотностью земной мантии. Поэтому у Луны или нет, или очень малозначимое железное ядро. Внутреннее строение Луны изучено по сейсмическим данным, переданным на Землю устройствами космических экспедиций «Аполлон». Толщина коры Луны 60–100 км. Прости про остальное не знаю