Пацанчики во Мой код:
Var A, N, C: Integer;
Begin
Write('Введи первый сомножитель: ');
Readln(A);
Write('Введи второй сомножитель: ');
Readln(N);
C:= A + N;
Writeln(A,' + ',N, ' = ',C);
Readln;
end.

Как сделать, что бы паскаль не трогал 0 при вычитании например, чтобы после значений A=-3 и N=4 он показывал 2

1.
алг сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
кон
2.
алг произведение
нач цел mult=1,i, цел таб a[1:5] 
вывод "Введите 5 элементов массива:" 
нц для i от 1 до 5 
ввод a[i] 
кц 
нц для i от 1 до 5 
mult:=mult*a[i] 
кц 
вывод mult
кон
3.
алг максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
кон

1)
program gt;
var a,i:integer;
begin
for i:=1 to 100 do
begin
writeln(i,' ',i*400);
end;
end.
2)
program gt;
var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(100)-50;
s:=0;
for j:=1 to 5 do
s:=s+a[1,j];
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if(a[i,j]<0)then a[i,j]:=s;
write(a[i,j],' ');
end;
writeln;
end;
end.
3)
program gt;
var a,b:array[1..15]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 15 do
a[i]:=random(100)-50;
for i:=1 to 15 do
begin
read(j);
b[i]:=a[i]+j;
end;
for i:=1 to 15 do
write(a[i],' ');
writeln;
for i:=1 to 15 do
write(b[i],' ');
end.