Блок-схемы

uses crt;
var
i,j,n,k,l:integer;
a:array[1..100] of integer;
b:array[1..100] of integer;
begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
b[1]:=a[1];
l:=2;
for i:=2 to n do begin
k:=0;
for j:=1 to l-1 do begin
if  b[j]=a[i] then k:=k+1;
end;
if k=0 then begin b[l]:=a[i];
l:=l+1;
end;
end;
for j:=1 to l-1 do
write(b[j]:4);
readln;
end.
sum:=0;
for i:=1 to n do
 sum:=sum+a[mini,i];
for i:=1 to n do
 begin
   write(a[i,j]:6:2);
   writeln;
 end;
writeln('Sum= ',sum:10:3);
readln;
end.

uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then
a[i,j]:=n-i+1
else a[i,j]:=0;
write(a[i,j]:2)
end;
writeln;
end;
readln;
end.

uses crt;
function Kor_3(t:real):real;{вычисляем корень третьей степени}
begin
if t<0 then Kor_3:=-exp(abs(ln(t))/3){для отрицательных}
else if t=0 then Kor_3:=0{для ноля}
else Kor_3:=exp(ln(t)/3);{для положительных}
end;
var x,xn,xk,a,dx,y,s,p:real;
    k:integer;
begin
clrscr;
write('Начало интервала xn=');
readln(xn);
repeat
write('Конец интервала, больше начала xk=');
readln(xk);
until xk>xn;
repeat
write('Шаг табуляции, меньше длины имрервала dx= ');
readln(dx);
until dx<(xk-xn);
write('a=');readln(a);
s:=0;
p:=1;
k:=0;
x:=xn-dx;
while x<=xk do
 begin
  x:=x+dx;
  if (x<0) then y:=0
  else
   begin
    y:=sqr(Kor_3(sqrt(x)+a)+a-Kor_3(a*x*x));
    k:=k+1;
    s:=s+y;
    p:=p*y;
   end;
 end;
writeln('Сумма=',s:0:2,'  произведение=',p:0:2,'  количество=',k);
readln
end.

uses crt;
const k=5;
      g=6;
var m:array[1..k,1..g] of byte;
   i,j,sm,mn,imn:byte;
begin
clrscr;
writeln('Введите данные таблицы по 5 курсам, на каждом 6 групп, в группах 20-30 чел.:');
for i:=1 to k do
for j:=1 to g do
 begin
  repeat
   write('курс ',i,' группа ',j,' = ');
   readln(m[i,j]);
  until m[i,j] in [20..30];
 end;
clrscr;
writeln('Таблица:');
writeln;
write('группа');
for i:=1 to g do
write(i:4);
writeln;
writeln('курс  ');;
for i:=1 to k do
 begin
  write(i:3,'   ');
  for j:=1 to g do
  write(m[i,j]:4);
  writeln;
 end;
writeln;
mn:=180;imn:=1;
for i:=1 to k do
 begin
  sm:=0;
  for j:=1 to g do
  sm:=sm+m[i,j];
  if sm<mn then
   begin
    mn:=sm;
    imn:=i;
  end;
 end;
writeln('Меньше всего студентов обучается на ',imn,' курсе. ',mn,' чел.');
readln
end.

uses crt;
var a1,a2,b1,b2,c1,c2,c3:byte;
begin
clrscr;
repeat
writeln('Введите цифры первого числа(числа от 10 до 99):');
readln(a2,a1);
until(a2 in [1..9])and(a1 in [1..9]);
repeat
writeln('Введите цифры второго числа(числа от 10 до 99):');
readln(b2,b1);
until(b2 in [1..9])and(b1 in [1..9]);
if a2*10+a1>b2*10+b1 then
 writeln('Число А уменьшаемое, число В вычитаемое')
else if a2*10+a1<2*10+b1 then
 writeln('Число B уменьшаемое, число A вычитаемое')
else writeln('Числа А и В равны');
c1:=(a1+b1)mod 10;
c2:=(a2+b2+(a1+b1)div 10) mod 10;
c3:=(a2+b2+(a1+b1)div 10) div 10;
write('Цифры суммы чисел ',c3,' ',c2,' ',c1);
readln
end.
 
 
uses crt;
const n=13;//это максимально, что входит на экран
var a,b,c:array[1..n,1..n] of real;
    i,j,p:byte;
begin
clrscr;
randomize;
writeln('Матрица А:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=5*random;
     write(a[i,j]:4:1);
    end;
   writeln;
 end;
writeln;
writeln('Press Enter...');
readln;
writeln('Матрица B:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     b[i,j]:=5*random;
     write(b[i,j]:4:1);
    end;
   writeln;
 end;
writeln;
writeln('Press Enter...');
readln;
for p:=1 to n do
for j:=1 to n do
 begin
  c[p,j]:=0;
  for i:=1 to n do
  c[p,j]:=c[p,j]+a[p,i]*b[i,j];
 end;
writeln('Матрица C:');
for i:=1 to n do
 begin
   for j:=1 to n do
   write(c[i,j]:6:1);
   writeln;
 end;
 
readln
end.

uses crt;
var a:array[1..50,1..50] of real;
     n,i,j,mini,minj:byte;
     sum:real;
begin
clrscr;
writeln('n ');
readln(n);
mini:=1;
minj:=1;
for i:=1 to n do
 for j:=1 to n do
   begin
     writeln('a[',i,',',j,']= ');
     readln(a[i,j]);
     if a[mini,minj]>a[i,j] then
       begin
         mini:=i;
         minj:=j;
       end;
   end;
 
sum:=0;
for i:=1 to n do
 sum:=sum+a[mini,i];
 
for i:=1 to n do
 begin
   write(a[i,j]:6:2);
   writeln;
 end;
writeln('Sum= ',sum:10:3);
readln;
end.