Уисполнителя калькулятор две команды которым присвоены номера 1 возведи в квадрат 2 вычти 1 первая из них возводит число на экране в квадрат который уменьшает его на 1 запишите порядок команд в программе получения из числа 58 содержащих не более 4 команд указывая лишь номера команд например программы 12122 это программа возвести в квадрат вычти 1 возведи в квадрат вычти один вычти один которая преобразует число 2 в 7
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.