в строке удалить первую и последнюю буквы,только записать в виде программы и тестового примера в паскаль!!!

[rfnthbyf]

в строке удалить первую и последнюю буквы,только записать в виде программы и тестового примера в паскаль!!!

очень срочно!!!

[Кольша]

delphi:
s:='sstrokaa';
delete(s,1,1);
delete(s,length(s),length(S));
showmessage(s);

[rfnthbyf]

прости, а можно по понятней, с Var, Program?Пожалуйста!!)

[Кольша]

я б помог но я с консолью не работал

[rfnthbyf]

ну ладно, кто может помочь еще?)

[sxcine]

program aa;
var s: string;
begin
readln(s);
delete(s,1,1);
delete(s, length(s), length(s));
writeln(s);
end.

как то так

[Stilet]

Программа полностью:

const s='Hello World';begin write(copy(s,2,length(s)-2));readln;end.

[rfnthbyf]

спасибо всем огромное*)Очень помогли)

может еще кто вариант предложит?)

[spein]

пример, приведенный Stilet, наилучший. Альтернативы есть, но они гораздо хуже.

[Hacker19_90]

может еще кто вариант предложит?)

да пожалуйста

Program GV_1;
Uses
    Crt;
var
    s: string;
    i: integer;
Begin
   ClrScr;
   Readln (s);
   for i := 1 to length(s)-1 do
       s[i] := s[i+1];
   s[0] := chr(length(s)-2);
   Writeln(s);
   Writeln;
   ReadKey;
end.