Для N целых чисел, которые вводятся с клавиатуры, определить сумму и кол-во положительных чисел, которые делятся на 6 без остатка

uses crt;
var i,n,count:byte;
    chislo, summa: integer;
begin
    clrscr;
    writeln('Vvedite kol-vo chisel');
    readln(n);
    summa:=0;
    count:=0;
    for i:=1 to n do
    begin
        write(i,' Chislo=');
        readln(chislo);
        if (chislo>0)and(chislo mod 6 = 0) then
        begin
            count:=count+1;
            summa:=summa+chislo;
        end;
    end;
    writeln('Kol-vo = ',count);
    writeln('Summa = ',summa);
    readln;
end.

uses crt;
var x,pervaya,poslednaya:byte;
    n:string;
begin
    clrscr;
    writeln('Vvedite chislo');
    readln(n);
 
    val(n[1],pervaya,x);
    val(n[3],poslednaya,x);
    writeln(pervaya);
    writeln(poslednaya);
    if pervaya>poslednaya then
        writeln('Pervaya bolshe')
    else
        if pervaya<poslednaya then
            writeln('Poslednaya bolshe')
        else
            writeln('Oni ravni');
 
    readln;
end.

uses crt;
var n:byte;
 
begin
    clrscr;
    writeln('Vvedite yroven ucheb znanii');
    readln(n);
    case n of
        1..4:   writeln('Nahcalnii');
        5..7:   writeln('Srednii');
        8..10:  writeln('Dostatochnii');
        11..12: writeln('Visokii');
    end;
    readln;
end.