Задание 7. Ниже представлен фрагмент программы, которая по- лучает слово «нора» из слова «информатика». Допишите команды
для получения двух новых слов из этого слова.
var s, t, w, z:string;
begin
s:='информатика';
t:=s [2]+s [4] +s [5]+s [7];
W:=
Z: =
1
І
z);
/
writeln (t,'', w,
end. ​

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

writeln('a[',i,']=',a[i]);

readln;

end.

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.