Помогите составить программу в Pascal ABC

program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
end.

program p1;
var a:integer;
begin readln(a); writeln(not odd(a div 100+a div 10 mod 10+a mod 10) end.

program p2;
var a,b,c,d:real;
begin readln(a,b,c); if (a<=b)and(a<=c) then c:=a else if b<=c then d:=b else d:=c; writeln(d:0:3) end;

вот программа, отсюда возьми сумму цифр а определить, четность - это просто (остаток от деления на 2 равен0program sumcifr;
uses crt;
var
n: longint;
s: integer;
j:integer;
begin
clrscr;
s:=0; j:=0;
write('ввести число --> ');readln(n);
while n>0 do begin j:=j+1;
s:=s+n mod 10;
n:=n div 10;
end;
writeln('число цифр числа = ',j);
writeln('сумма цифр числа = ',s);

readln;
end.

programm a;
var
a,b,c,d,sum:integer;
begin
writeln('введите число');
readln(a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
sum:=b+c+d;
if (sum mod 2 = 0) then
writeln('Является')
ese
writeln('Не является');
readln;
end.

помогите нужно составить программу по решению квадратного уравнения
ах в квадрате + bx=0 паскаль что то вроде того кто разбирается помогите (((((

program okверсия2;
var
num:integer;
a,b,c:integer;
begin
writeln('ВВЕДИТЕ ЧИСЛО!!!');
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Сумма цифр в числе нечётная') else writeln('Сумма цифр в числе четная');
readln;
end.