Составить программу на Паскале

Найти среднее арифметическое трѐх целых случайных чисел,

принадлежащих промежутку [0; 10).

На pascal abc

uses crt;

var

a, b, c : real;

begin

write ('Введите три числа (через пробел) : ');

readln (a, b, c);

if (a>=0) and (a=0) and (b=0) and (c<10)

then writeln ((a+b+c) / 3)

else writeln ('Число не принадлежит промежутку [0; 10) ');

end.