По информатике в паскаль известно следующее свойств целых чисел если число будучи разделено на 9 даст в остатке 1 или 8 то квадрат этого числа деленный на 9 даст 1. решите в виде паскаль

Не совсем понял условие, но попытался сделать

Program ex1;uses crt;var x:integer;begin  write('Введите число : ');  readln(x);  if (x mod 9 = 1) or (x mod 9 = 8) then    writeln('Остаток числа ',x,' от деления на 9 : ',sqr(x) mod 9)  else     writeln('Число не подходит!');end.

program Calc1;

var

 m, k, x, y: Double;

begin

 Write ('Введите m, k, x: ');

 ReadLn (m, k, x);

 if m * k - x >= 2 then

   y := Sqr (x) + Sin (6 * x) - (k + 1)

 else

   y := Power (x, 3) - m * k + 3;

 WriteLn ('y = ', y :20 :10);

 ReadLn;

end.

program Calc2;

const

 E = 1;

 F = -2;

var

 x, y: Double;

begin

 Write ('Введите x: ');

 ReadLn (x);

 if x > Pi then

   y := Sqr (Pi) + E * x * Ln (x)

 else if x < 0 then

   y := 0

 else

   y := Pi / 4 - F * x;

 WriteLn ('y = ', y :20 :10);

 ReadLn;

end.

Объяснение:

Медици́нская сестра́ (медсестра́)[1] — специалист со средним специальным медицинским образованием в области сестринского дела. Медицинская сестра относится к среднему медицинскому персоналу, является младшим специалистом (это указано в дипломе медсестры) по отношению к специалисту — врачу.

Начальное медицинское образование получают младшие медицинские сестры и санитарки, окончившие специальные курсы или получившие неполное среднее медицинское образование. Они относятся к младшему медицинскому персоналу.

Медицинская сестра выступает врача в лечебно-профилактических учреждениях, выполняет врачебные назначения и осуществляет сестринский процесс.