Жасанды интеллектінің дамуына ықпал еткен адамдар​

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.

программа определяет какое число было введено пользователем положительное или отрицательное и выводит соответсвующее сообщение