определить сумму цифр, входящих в состав числа.

{1 Задача. Дано натуральное число (<=65565)определить сумму цифр входящих в состав этого числа.}
var
    number:integer;
    summa:integer;
begin
    repeat
        write('Введите число <=65565: ');readln(number);
    until (number<=65565);
    summa:=0;
    while(number>0)do
    begin
        summa:=summa+(number mod 10);
        number:=number div 10;
    end;
    writeln(summa);
end.

{2)Задача. Дано число вывести все делители данного числа.}
var
    number:integer;
    i:integer;
begin
    repeat
        write('Введите число <=65565: ');readln(number);
    until (number<=65565);
    for i := 1 to (Number div 2) do
    begin
        if (Number mod i = 0) then 
        begin 
            write(i,' '); 
        end; 
    end;
    write(Number);
end.

{3)Задача. Написать программу, которая печатает TRUE или FALSE в зависимости от того, имеют три заданных целых чётность.}
var 
    a,b,c:integer;
begin
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    write((a mod 2 = b mod 2)and(a mod 2 = c mod 2));
end.

{4)Задача.Дано число определить простое оно или нет.}
var
    number:integer;
    i:integer;
    flag:boolean;
begin
    repeat
        write('Введите число <=65565: ');readln(number);
    until (number<=65565);
    flag:=true;
    for i := 2 to (Number div 2) do 
    begin
        if (Number mod i = 0) then 
        begin 
            flag:=false; 
        end; 
    end;
    writeln(flag);//true - простое
end.

{5)Задача. Написать программу, которая печатает Да или Нет в зависимости от того, если три заданных числа положительные.}
var 
    a,b,c:integer;
begin
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    if(a>0)and(b>0)and(c>0)then
    begin
        writeln('Да.');
    end
    else
    begin
        writeln('Нет.');
    end;
end.