Написать программу, которая проверяет правильность ввода пароля, Пользователь может ввести пароль Лишь 3 раза, а затем получит сообщение об ошибке, если введенный пароль неверный или приветствие, если пароль верный.​

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
const
  R=8.314;
begin
  Writeln('Расчет параметров газового состояния');
  Writeln('Введите обозначение величины, которую хотите найти:');
  Writeln('p - давление, m- масса газа, V - объем массы газа,');
  Writeln('T- термодинамическую температуру, иное - ОТКАЗ');
  var c:=ReadlnChar;
  if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!')
  else begin
    var M1,p,V,m,T:real;
    M1:=ReadReal('Введите массу одного моля газа (кг/моль):');
    case c of
    'p','P':begin
      m:=ReadReal('Введите массу газа (кг):');
      V:=ReadReal('Введите объем массы газа (м3):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па')
      end;
    'm','M':begin
      p:=ReadReal('Введите давление газа p (Па):');
      V:=ReadReal('Введите объем массы газа (м3):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг')
      end;
    'V','v':begin
      p:=ReadReal('Введите давление газа p (Па):');
      m:=ReadReal('Введите массу газа (кг):');
      T:=ReadReal('Введите термодинамическую температуру (К);');
      Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3')
      end;
    'T','t':begin
      p:=ReadReal('Введите давление газа p (Па):');
      m:=ReadReal('Введите массу газа (кг):');
      V:=ReadReal('Введите объем массы газа (м3):');
      Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K')
      end
    end
  end
end.

Пример
Расчет параметров газового состояния
Введите обозначение величины, которую хотите найти:
p - давление, m- масса газа, V - объем массы газа,
T- термодинамическую температуру, иное - ОТКАЗ
m
Введите массу одного моля газа (кг/моль): 28e-3
Введите давление газа p (Па): 96360
Введите объем массы газа (м3): 2e-3
Введите термодинамическую температуру (К); 298
Масса газа m составляет 0.00218 кг

1. Со временем и так будут учить решать...

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var k:=ReadInteger('Введите 1<k<=n:');
  if (k>n) or (k<1) then exit;
  var a:=MatrRandomReal(n,n,1,20); a.Println(7,2);
  k-=1;
  var d:=a[k,k];
  Writeln(n*7*'-');
  for var j:=0 to n-1 do a[k,j]/=d; a.Println(7,2)
end.

Пример
n= 5
Введите 1<k<=n: 2
  15.11   1.07   2.01   6.33   8.63
  13.26  14.96  13.36   9.87  17.39
  14.87  19.89  16.94  10.77  17.86
  18.16  19.99  10.16   9.89   5.42
   4.78  13.60   6.89  19.56   1.25

  15.11   1.07   2.01   6.33   8.63
   0.89   1.00   0.89   0.66   1.16
  14.87  19.89  16.94  10.77  17.86
  18.16  19.99  10.16   9.89   5.42
   4.78  13.60   6.89  19.56   1.25

2. А пока в школах учат писать вот так. Хорошо видно, насколько школа отстает от современных технологий.

const
  nn=20;
var
  a:array[1..nn,1..nn] of real;
  i,j,n,k:integer;
  d:real;
begin
  Write('n= '); Read(n);
  Write('Введите 1<k<=n: ');  Read(k);
  if (k>n) or (k<1) then exit;
  randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=19*random+1;
      Write(a[i,j]:7:2)
      end;
    Writeln
    end;
  d:=a[k,k];
  for i:=1 to 7*n do Write('-');
  Writeln;
  for j:=1 to n do a[k,j]:=a[k,j]/d;
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:7:2);
    Writeln
    end
end.