Нужны блок-схемы к програмкам (Pascal)

[spinogryz_ua]

uses crt;
var
ms:array[1..18] of integer;
max,s,k,i:integer;
begin
  writeln ('Лаболаторна робота №5');
writeln ('виконав студент 1-го курсу');
writeln ('Пухлий Аркадій');
  randomize;
  writeln('Початковий масив: ');

   for i:=1 to  18 do begin
    ms[i]:=random(225)-100;
    writeln(' ',i,')  ',ms[i]);
   end;
   k:=0;
   s:=0;
   max:=-2000;
      writeln;

   writeln('Числа кратнi 5: ');
   for i:=1 to 18 do begin
    if (ms[i] mod 5=0) then begin
    s:=s+1;
    k:=ms[i];
    writeln(i,') ',k);end;
    if (k>max) then
    max:=k;

   end;
    writeln('Кількість елементiв що кратні 5: ');
   writeln(s);
   writeln('Максемальне число серед чисел кратних 5: ');
   writeln(max);
   writeln;

end.

uses crt;
const n=7;
var
sc:array[1..n,1..n]of real;
g:real;
i,j,s:integer;
begin
s:=0;
g:=0;
writeln('  Лабораторна №1');
writeln('  Виконав студент групи пз-114');
writeln('  Пухлий Аркадій');
writeln('  Варіант №5');
writeln('  Визначити суму та кількість від''ємних елементів, що розміщені під головною діагоналлю матриці.');
writeln('  Матриця розмірністю 7x7  дійсного типу');
writeln();
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
sc[i,j]:=Random+random(10)-5;
write(sc[i,j]:6:2);
if j<i then
begin
if sc[i,j]<0 then
begin
s:=s+1;
g:=g+sc[i,j];
end;
end;
end;
writeln;
end;
writeln();
writeln('  кількість відемних елементів ',s);
writeln('  сума віде''мних елементів ',g:6:2);
end.

uses
  crt;
Var x,st,sv,y,sz:real;
i,j,n:integer;
fact:real;
begin
clrscr;
writeln('ввести x');
read(x);
writeln('Внутрішня сума','    Зовнішня сума');
sz:=0;
for j:=4 to 11 do
  begin
    i:=1;
    sv:=0;
    while i<12 do
      begin
        if (i+1)mod(2)=0 then st:=exp((i+1)*ln(x))*ln(i+x)
        else st:=-1*exp((i+1)*ln(x))*ln(i+x);
		  fact:=1;
		  n:=j+1;
		  if n>0 then
		  while n<>0 do
			begin
				fact:=fact*n;
				dec(n);
			end;
        y:=st/(fact+exp(i+x));
        sv:=sv+y;
        i:=i+1;
      end;
    sz:=sz+sv;
    writeln (sv:10:4,sz:17:4);
  end;
writeln('Остаточна зовнішня сума = ',sz:10:7);
readln;
readln
end.

[McFrey]

стучи в аську (см. в профиле) договоримся

[Luuzuk]

http://www.google.ru/search?aq=f&sou...F-8&q=FCEditor

[McFrey]

/\
||
а это еще лучший вариант))