пожалуйста!!!!!! Составьте программу, которая запрашивает четыре числа с клавиатуры и определяет среди них количество четных чисел. Readln (a, b, c, d); If d mod 2 =0 then K:=K+1;<br /> K:=0;<br /><br /> Составьте программу, которая позволяет определить, является ли треугольник со сторонами a, b, c равносторонним.

var    i, n, prev, k: integer;begin    //1    k := 0;    for i := 1 to 4 do     begin        read(n);        if n mod 2 = 0 then k := k + 1;    end;    writeln('K = ', k);    //2    k := 0;    for i := 1 to 3 do     begin        read(n);        if i = 1 then begin            prev := n;            k := k + 1;        end        else if n = prev then k := k + 1;    end;        if k = 3 then        writeln('Равносторонний')    else        writeln('Не равносторонний');end.