Пусть y=F(x),тогда:
uses crt;
var x:integer;
y:real;
begin
write (x=); read(x);
if x<=1 then y:=sqr(x)*x-3*x*8;
if x>1 then y:=1/sqr(x)*x*8*x;
write(y=,y);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.