оператор присваивания :=
оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)
оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)
условный оператор if условие then оператор 1 else оператор 2
оператор варианта case управляющая переменная of
набор значений1: оператор1;
набор значений2: оператор2;
...
набор значенийn: операторN
else
альтернативный оператор
end;
оператор цикла с предусловиями while ... do
оператор цикла с постусловием repeat ... until
оператор цикла for ... do
оператор break осуществляет немедленный выход из циклов repeat, while, for.
оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.
оператор exit осуществляет выход из подпрограммы.
оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.
6. Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "дублировать"
7.Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "изменить размер объекта"
8. Когда флажок нажат :
Когда клавиша пробел нажата:
идти ... шагов
если край, оттолкнуться
играть звук ...
перейти к костюму : ...
следующий костюм
опустить перо
поднять перо
установить цвет пера: ...
установить эффект: ... в значение: ...
ждать: ... секунд
если: ...
повторять пока не
повторять всегда
повторить: ... раз
остановить скрипт
остановить всё
a:array [0..44] of integer;
sum: integer;
pr: integer;
st: string;
begin
sum:=0;
pr:=1;
for i:=0 to 44 do
begin
Readln('a[',i,']=',a[i]);
str(a[i],st);
if length(st)=2 then
sum:=sum+a[i];
if length(st)=1 then
pr :=pr*a[i];
end;
Writeln('Сумма: ',sum,' Произведение: ',pr);
Readln
end.