Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 7 единицам.

Алгоритм:

сместиться в точку (16,16)

опустить перо сместиться на вектор (,7)

сместиться на вектор (,0)

сместиться на вектор (0,)

сместиться на вектор (−7,0)

Program R;
uses crt;
Var a, c, d, l, k: String[50]; b: integer;
Begin
Writeln('Привет!');
Writeln('Давай познакомимся! Как тебя зовут?');
Readln(a);
Writeln('Очень приятно, ',a,'! ','А меня зовут Евгений.');
Writeln('Сколько тебе лет?');
Readln(b);

if (a = 'Антон' and b=15) then
Writeln('Да... Через 50 лет тебе уже будет 65 лет, а звать тебя будут не Антон, а дед Антон');

Writeln('Мне тоже,' b, '!');
Writeln('Какую музыку ты любишь слушать?');
Readln(c);
Writeln('Ничего себе! Да у нас похожие вкусы! Ведь я тоже люблю слушать ', c);
Writeln('Какое время года ты любишь?');
Readln(d);
Writeln('Я тоже обожаю ',d);
Writeln('Какой твой любимый цвет?');
Readln(l);
Writeln('Мне кажется, мы во многом похожи... Это и мой любимый цвет.');
Writeln('Кто ты по знаку зодиака?');
Readln(k);
Writeln('Надо же! Я тоже ',k,'.');
Writeln('Было очень приятно познакомиться и поговорить,' a,'! Пока!');
End.

Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4