В общем всё на фотках на первой прога на второй блок схема, блок схема устаревшего образца как говорит (Эникей), хотя на ЕГЭ писал почти такую же и получил максимальный балл по заданию, если интересно я прикрепил ещё его вариант оформления цикла for только там блок схема для другой программы.
Var
N,A:integer;
B:longint;
k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
Begin
k:=true;
A:=N;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N,' ');
End;
End.
Var
i,k,m,r,p,j:integer;
a:array[1..10]of integer;
begin
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
write('Введите K,M,R: ');
readln(k,m,r);
for i:=1 to r do
begin
j:=k;
p:=a[j];
while j<m do
begin
a[j]:=a[j+1];
j:=j+1
end;
a[j]:=p;
end;
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
<span>end.</span>