Прикрепляю решение повторно, надеюсь у модераторов больше не возникнет вопросов...
Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.
Нет сам делай дурачек конспект это изи!