Составить Блок-Схемы:

uses crt;
var x,f: real;
 a, b : integer;
 begin
 writeln('VV x:=');
 readln(x);
 writeln('VV a:=');
 readln(a);
 writeln('VV b:=');
 readln(b);
 F:=(abs(x-b-sqr(cos(x)+exp(x-1)))/(a-sqrt(abs(b*x-4))));
 write('nn:',F:3:2);
 readln;
 end.

const n=12;
var a:array[1..n]of integer; max,i:integer;
 begin
  Randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
   begin
    a[i]:=random(11);
    a[i]:=a[i]-3;
    write(a[i]:3);
    if a[i]>max then
     max:=a[i];
   end;
  for i:=1 to n do
    if a[i]<0 then
     a[i]:=max;
  writeln('Измененный массив:');
  for i:=1 to n do
   write(a[i]:3);
 end.

const
 N=7;
 var
 Matrix:array [1..N,1..N] of byte;
 i,j,c,k,f:integer;
 begin
 c:=0;
 f:=1;
 for I:=1 to N do
 begin
 k:=N-C*2;
 for J:=1 to N do
 begin
 if (J<=C)or(J>C+K) then
 Matrix[J,I]:=0
 else
 Matrix[J,I]:=1;
 end;
 if I>=4 then
 F:=-1;
 inc(C,F);
 end;
 for i:=1 to N do
 begin
 for j:=1 to N do
 write(Matrix[J,I],' ');
 writeln;
 end;
 readln;
 end.

VAR
 S,S0,T:String;
 i,n:byte;
Begin
 Writeln('Enter S:');
 Readln(S);
 Writeln('Enter S0:');
 Readln(S0);
 n:=0;
 For i:=1 to Length(S)-Length(S0)+1 do
  begin
   T:=Copy(S,i,Length(S0));
   If T=S0 then INC(n);
  end;
 Writeln(n,' times');
 Readln;
End.