По заданной таблице истинности составьте логические выражения для функций F1, F2
A B C F1 F2
0 0 0 0 0
0 0 1 0 1
0 1 0 1 0
0 1 1 1 1
1 0 0 0 0
1 0 1 1 0
1 1 0 0 1
1 1 1 1 1

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

954-459=495