Не видно, если хочешь можешь удалить мой ответ, но я лично не вижу из-за темноты=(
Если это элементарное заполнение по принципу 1 сигнал - 1 клетка
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>
Ответ: 1
ВОР, больше никак не расшифровывается.
Ты хоть сама поняла что написала извиняюсь конечно