1.составить блок-схему,которая определяет сумму двузначных четных чисел 2.составить программу вычисления уравнения : y= предусматрев вариант,при каких z, уравнение не имеет решения

2. 
var z,y:integer;
begin
write('Введите z');
readln(z);
if (z>0) and (z<0) then writeln(y=(1/z)+(5/(z-6))) 
else 
writeln('На ноль делить нельзя!');
readln;
end.

Номер 1 сделан в фотке!:)

Дай лучший ответ мне оч нужно!)