50 ! напешите программу на pascal программу которая будет и спрашивать как дела, но сначало нужно ввести имя​

program raf105;

var a: string;

begin

writeln('как тебя зовут? ');

readln(a);

writeln(', ',a);

writeln('как твои дела? ');

readln();

writeln('понятно');

writeln('мне пора идти. пока, ',a);

end.

технологии записи данных

принцип работы жёстких дисков похож на работу магнитофонов. рабочая поверхность диска движется относительно считывающей головки (например, в виде катушки индуктивности с зазором в магнитопроводе) . при подаче переменного электрического тока (при записи) на катушку головки возникающее переменное магнитное поле из зазора головки воздействует на ферромагнетик поверхности диска и изменяет направление вектора намагниченности доменов в зависимости от величины сигнала. при считывании перемещение доменов у зазора головки приводит к изменению магнитного потока в магнитопроводе головки, что приводит к возникновению переменного электрического сигнала в катушке из-за эффекта электромагнитной индукции.

намагничиваются его области микрозоны

точнее перемагничиваются.

Program pos; var       s: string;       l: integer; procedure printchar(n: integer); var       sub: string; begin       sub : = copy(s, n, 1);       write(sub);       if n < > 1 then               printchar(n - 1); end; begin       write('введите слово: ');       readln(s);       l : = length(s);       printchar(l); end.