Напишите программы для алгоритмов, приведённых ниже в виде блок-схем

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

сетевые устройства

сетевое по

линии связи

350*2=700

700-500=200