1.Дано двузначное число.Отыскать разность и приватное его цифр. 2.Дано целое число.Если

program zz1;
var n,n1,n2,a,b,s,i:integer;
begin
writeln(1. введите двузначное число);
read(n);
n1:=n div 10; n2:=n mod 10;
writeln(разность цифр =,n1-n2);
writeln(приватное цифр =,n1/n2);
writeln(2. введите число);
read(n);
if ngt;0 then n:=n+1;
if n=0 then n:=10;
writeln(приобретенное число =,n);
writeln(3. введите двузначное число);
read(n);
n1:=n div 10; n2:=n mod 10;
writeln(левая цифра =,n1);
writeln(правая цифра =,n2);
writeln(4. введите число);
read(n);
if n mod 2 = 0 then writeln(четное) else writeln(не четное);
writeln(5. введите 1-ое число);
read(a);
writeln(5. введите 2-ое число);
read(b);
for i:=a to b do
s:=s+i;
writeln(сумма чисел от а до b =,s);
end.