Например, можно так:
Repeat
<Действия>
Until <Условие>
Пример:
Repeat
Write('Хочу домой');
Readln(s)
Until s='иди'
Здесь будет всё время выходить "Хочу домой" и предлагаться ввод ответа, пока не будет введено "иди".
Создаешь большой прямоугольник (нужных размеров) через кнопку на верхней панели,делаешь серую заливку,сверху таким же способом делаешь 3 круга (там сначала создается квадрат,а ты в властивостях форми выбираешь circle)и делаешь заливку разных цветов.
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard
Нужно из числа 6 получить число 48 по данному алгоритму и в ответ писать только номера команд содержащая 5 команд..
1)6^2=36 -это команда "2"
2)36+3=39 -это команда "1"
3)39+3=42 -"1"
4)42+3=45 -"1"
5)45+3=48 -"1"
Ответ:21111