var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln('Первый символ: "', s[1], '" Второй символ: "', s[2], '" Последний символ: "', s[length(s)], '');
end.
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится
Ответ под номерам Б, я так считаю
// PascalABC.Net v3.1
var
n,p: integer;
begin
// 1. вывод нечетных от 50 до 40
n:=51;
while n>=41 <span>do begin </span>
writeln(n);
n:=n-2;
end;
// 2. Произведение от 7 до 12
p:=1;
n:=7;
while n<=12 do begin
p:= p* n;
n :=n+1;
end;
writeln(p);
end.