PESEL

program pesel;

uses SysUtils;

var
  Pes: string;
  i, reszta: byte;
  suma, razem: integer;
  waga: array[1..10] of byte;

begin
  waga[1] := 1;
  waga[2] := 3;
  waga[3] := 7;
  waga[4] := 9;
  waga[5] := 1;
  waga[6] := 3;
  waga[7] := 7;
  waga[8] := 9;
  waga[9] := 1;
  waga[10] := 3;

  Writeln('Podaj nr PESEL:');
  Readln(Pes);

  suma := 0;

  for i := 1 to 10 do
  begin
    razem := StrToInt(Pes[i]) * waga[i];
    suma := suma + razem;
  end;

  reszta := suma mod 10;

  if (10 - reszta = StrToInt(Pes[11])) then
    Writeln('PESEL jest prawidlowy.')
  else
    Writeln('PESEL nie jest prawidlowy');

  Readln;
end.