1. Дано двузначное число. Найти разность и частное его цифр. 2. Дано целое число. Если оно является положительным то прибавить к нему 1. Емли нулевым то заменить его на 10. 3. Дано двузначное число. Вывести его левую цифру, потом правую. 4. Дано целое число, определить является ли оно четным. 5. даны два целых числа. Найти сумму всех целых чисел от а до в. написать программы (паскаль)

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 n>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. введите первое число');

read (a);

writeln ('5. введите второе число');

read (b);

for i:=a to b do

s:=s+i;

writeln ('сумма чисел от а до b = ', s);

end.