Pygame. display модулінің қызметі​

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

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

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.