Определите, к какому блоку относятся следующие команды когда щелкнут по
длина world
опустить перо
следующий костюм
когда спрайт нажат
установить прозрачность видео 50 до
думать Нmn... 2 секунд
подождь 0.25 акто
повернуть на 15 градусов
изменить тень пера на 10
изменить громкост на -10
перейти в жt ov: 0
повторять пока не
когда клавиша пробел
Harkara
квадратный корень
от 9
клавиша пробел нажата?​

Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
i:=i+1;    
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat    
Begin    
i:=i+1;    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
i:=i+1;   
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat   
Begin   
i:=i+1;   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.