Нужна . нужно написать программы на языке паскаль 1. вводится натуральное число n и цифра a..требуется получить новое число n1, вычеркивая из числа n цифру a. например: 1) n=1215, a=1 - n1=25 ; 2) n=125, a=9 - n1=125. 2.вводится натуральное число n. получить новое число n1, приписав к числу n само себя.например: n=12 - n1=1212

Var cout,N1: integer;
begin
cout:=1;
N1:=0;
var N:=readinteger('Введите число N:');
var A:=readinteger('Введите число A:');
while N<>0 do
begin
if (N mod 10 <> A) then
begin
N1:=N1 + N mod 10 * cout;
cout*=10;
end;
N:=N div 10;
end;
write(N1);
end.

var N1,cout:integer;
begin
cout:=1;
var N:=readinteger('Введите число N:');
N1:=N;
while N<>0 do
begin
cout*=10;
N:=N div 10;
end;
N:=N1*cout+N1;
write(N);
end.