Описать и проверить работу процедуры del(t ) улалябшаяя из файла t состоящей из символов предпоследний элемент если такой есть.
всё это реализовать в лазарусе. ​

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

закодированный текст: byck is my dog.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.