Компьютермен жұмыс жасаудағы техникалық қауіпсіздік ережелері қандай

1. Тәртіпті, аңғарымды болу.

2. Өндірістік оқыту шеберінің ғана тапсырған жұмысын орындау.

3. Орындау тәсілін білген жағдайда ғана жұмысқа кірісу. Күдікті жағдайда жұмыс берушімен кеңесу.

4. Жұмыс кезінде өзінің де, өзгенің де көңілін бөлмеу.

5. Жарық жоқ және оның нашар кезінде жұмыс істемеу.

6. Компьютерді рұқсатсыз қоспау және қосылған компьютерді иесіз қалдырмау.

7. Дымқыл немесе су қолмен жұмысқа отырмау.

8. Монитор экраның желі жалғағыштарды, сымдарды қолмен ұстамау.

9. Қондырғыларды рұқсатсыз орнынан қозғамау.

10. Жұмыс орнынан қажетсіз кетпеу.

11. Компьютерді қатты қозғамау.

12. Компьютерлердің үстіне бөгде заттарды қоймау.

13. Жұмыс орнында және бөлмеде тазалық сақтау.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49