Программа может выглядеть так:
program Func;
uses Crt;
var a,b: integer;
rez, fa, fb: integer;
begin ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
,
Ответ:
остоновится если коснётся белого цвета. Если каснется то всё останавливается