По заданному алгоритму составьте блок-схему:

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному

синий,желтый,красный,зеленый,оранж.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.