-.-'

Финиш! Я выздоровел и сразу сделал.

program ex1;
var n, m, l, i : integer;
    s, s1 : string;
    s2 : char;
begin
     readln (n);
     s1:='';
     repeat
           s:='';
           m:=n mod 16;
           if m>9 then
           case m of
                10 : s:='A';
                11 : s:='B';
                12 : s:='C';
                13 : s:='D';
                14 : s:='E';
                15 : s:='F';
           end
           else
           str (m, s);
           s1 := s1 + s;
           n:=n div 16;
     until n=0;
     l:=length(s1);
     for i:=1 to l div 2 do
     begin
         s2:=s1[l-i+1];
         s1[l-i+1]:=s1[i];
         s1[i]:=s2;
     end;
     writeln (s1);

end.

Ваш, все же что-то делающий, автор

Ъ_Ъ

Программа, перемножения двух матриц. При написании крайне опасна для жизни.

program ex1;
const
n=2;
m=3;
q=4;
var
a:array [1..m,1..n]of integer;
b:array [1..n,1..q]of integer;
c:array [1..m,1..q]of integer;
i,j,r,s:integer;
begin


for i:=1 to m do for j:=1 to n do
                                     begin
                                     a[i,j]:=random(10);
                                     end;
for i:=1 to n do for j:=1 to q do
                                     begin
                                     b[i,j]:=random(10);
                                     end;

 for i:=1 to m do
 begin
 for j:=1 to n do

     write (a[i,j]:4);
     writeln;
 end;
 writeln ('*');
  for i:=1 to n do
 begin
 for j:=1 to q do
     write (b[i,j]:4);
     writeln;
 end;
 writeln ('=')   ;
   //
for i:=1 to m do
    for j:=1 to q do
    begin
        for r:=1 to n do s:=s+a[i,r]*b[r,j];
        c[i,j]:=s;
       s:=0;
    end;


 //
  for i:=1 to m do
 begin
 for j:=1 to q do
write (c[i,j]:4);
     writeln;
 end;
end.

Ваш, вспомнивший былое, автор