pascal строковые функции удаление символов из строки

Ответ от Ly[гуру]
#include <stdio.h>
int main(int argc, char *argv[])
{
char a[100];
int k,i;
i,k=0;
while ((a[i++]=getchar())!='
')
k++;
a[i]='';
for(i=0; i<k-3; i++)
printf("%c", a[i]);
printf("
");
return 0;
}

Ответ от Krab Bark[гуру]
var s:string; n:integer;
begin
write('string: '); readln(s);
write('n: '); readln(n);
writeln(copy(s,1,length(s)-3));
readln
end.

Ответ от Aleksandr H.[гуру]
var s:string; n:integer;
begin
write('string: '); readln(s);
write('n: '); readln(n);
delete(s,length(s)-3,3)
writeln(s);
readln
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]