Question

Составить программу, которая позволяет получить из слова «информатика» слова «формат» и «нота» путем удаления символов

Answer 1

Const
  s='информатика';
var
  s1:string;
begin
  s1:=s; Delete(s1,1,2); Delete(s1,7,3);
  Writeln(s1);
  s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
  Writeln(s1)
end.

Answer 2

Var s,d,f:string; 
begin s:='информатика';d:=s; delete(d,1,2);delete(d,7,3);write(d);writeln;
f:=s; delete(f,1,1);delete(f,2,1);delete(f,3,3);delete(f,4,2);write(f);end.