Ребят, срочно нужна помощь. Нужно написать программы на языке паскаль
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;begincout:=1;N1:=0;var N:=readinteger('Введите число N:');var A:=readinteger('Введите число A:');while N<>0 dobeginif (N mod 10 <> A) thenbeginN1:=N1 + N mod 10 * cout;cout*=10;end;N:=N div 10;end;write(N1);end.var N1,cout:integer;begincout:=1;var N:=readinteger('Введите число N:');N1:=N;while N<>0 dobegincout*=10;N:=N div 10;end;N:=N1*cout+N1;write(N);end.