Решить на pascal abc, . для данного целого x найти значение следующей функции f, принимающей значения целого типа: f(x)= 9x/17 при x< 1 или x> 5 x^2+81 (под корнем) , в противном случае.

Var
  x,f:real;
begin
  Write('x='); Read(X);
  if (x<1) or (x>5) then f:=9*x/17
  else f:=Sqrt(x*x+81);
  Writeln('f(x)=',f)
end.

Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми.
1)   Число  376 четное и трехзначное.
А = "Число  376 четное"
В = "Число  376 трехзначное"
А и В 
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится  на  3.
А = "Сумма цифр числа делится на 3"
В = "Число делится  на  3"
А стрелка к  В
6) Число  делится на 3 тогда и только тогда, когда сумма цифр числа  делится на 3
А = "Число  делится на 3 "
В = "Сумма цифр числа  делится на 3"
А стрелка в обе стороны В

Жёсткий диск ("винчестер", hdd, hard disc drive - eng.) - накопитель информации основанный на магнитных пластинах и эффекте магнетизма. Применяется повсеместно в персональных компьютерах, ноутбуках, ноутбуках, планшетных компьютерах, серверах и так далее. Устройство жёсткого диска.

Объяснение:

В полу герметичном блоке находятся двусторонние пластины, с нанесённым на них магнитным слоем, посаженные на вал двигателя и вращающиеся со скоростью от 5400 оборотов в минуту.Блок не совсем герметичен, но самое главное он не пропускает мелкие частицы и не допускает перепадов влажности. Всё это пагубно сказывается на сроке службы и качестве работы жёсткого диска.