#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Case - разветвление, выбор из нескольких элементов или даже промежутков
And - логическая операция аналогичная коньюнкции
Or - логическая операция аналогичная дизьюнкции
ClrScr - clear screen, т.е. очистить экран
<span>После max ты поставил ":" (max:a; max:c;) а надо ":=" (max:=a; max:=c;)</span>
Когда щёлкнешь по зеленому флажку
Всегда [8] шагов (можете [10] шагов)
Повторить [2] раза
Сменить на [1] костюм
Идти в точку - 123_31
Выбрать костюм [2]
Идти [8] шагов (можете [10] шагов)
Сменить на [3] костюм (Костюм мышки)