Буду очень благодарна!

Question

Буду очень благодарна!

---

Answer 1

1. Program zg;
Var a: string;
begin
a:= 'столик';
delete(a,5,2);
writeln(a);
end.

2.Program fg;
Var a,b,c: string;
begin
a:='рама';
b:='шина';
delete(a,1,2);
c:=a+b;
writeln(c);
end.