даны 2 целых числа найти наименьшее из них. ввести число если не отриц. вычислить 30 прибавить к нему 70.ваести целое число и определить чеснок оно или нет

PROGRAM B05;VAR    a,b:integer;BEGIN  writeln('a). Введите два целых числа');  write('Первое число: '); readln(a);  write('Второе число: '); readln(b);    if (a=b) then    writeln('Числа равны.')  else if (a<b) then    writeln('Наименьшее число = ', a)  else     writeln('Наименьшее число = ', b);  writeln('');  write('б). Введите число: '); readln(a);  if (a>0) then begin    b:=a-30;    writeln('Число неотрицательное. ', a,'-30=',b);  end else if (a<0) then begin    b:=a+70;    writeln('Число отрицательное. ', a,'+70=',b);  end else     writeln('Число равно 0');  writeln('');    write('с). Введите целое число: '); readln(a);  if odd(a) then    writeln('Число ', a,' нечетное')  else    writeln('Число ', a,' четное');END.