delshi_1.pas

program Project1;
{$APPTYPE CONSOLE} 
uses 
SysUtils; 
const n=8; 
var a,b:array[1..n] of byte; 
i:byte;
begin
  writeln('Vvedite ',n,' naturaln chisel');
  for i:=1 to n do
    begin
      repeat
        write('a[',i,']=');
        readln(a[i]);
      until a[i] in [10..99];
      b[i]:=a[i] mod 10;
    end;
  writeln('Ishodn');
  for i:=1 to n do
  write(a[i]:3);
  writeln;
  writeln('Massiv mladschih razrydow');
  for i:=1 to n do
    write(b[i]:3);
    readln
end.